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DE MiCRQCQMPUTADORES 



BANCOS DE DADOS: 

novo recurso para os usuarios de micros 

MBDADOS - Ustagem completaf\\ 
de um scbd para TRS-80 ^ fe . w 

assembler - Programapao M | E 
e manipulagao de video VI ffVi/S 









A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voce esppra 
de um grande micro. 



CampativeE com o TR3-0Q 
Modelo II I da Radio Shack. 

Cabinet teclario e CPU em 
mtidulos ind upend antes. 

Vnrsoes do 64 a 128 K Bytes de 
RAM, IB K Bytes de ROM. 

TocEado pmfissional com 
num&rico red uk id o e 4 led as 
de f lingoes, 

Sistema operational de disco 
DOS J II quCP/M 2.2. 

Caractercs grrifico& 

Video compostocom IB MHZ 
de faixa de passage m. 

Saida para impresses 
paralela. 

SYSDATA III 
Software disponivel 
van ado Escolha □ sen. 

Videotex to [TELESPJ. 

Pm jo to Crrand Ac 
(EMBRATEL). 

Kede de relax. 

SisEom a C srenc ia dor d e 
Ba nco de Da dos (SG B D}< 

DBASE it 

Compiladores Cobol, 

Fortran. Pascal Basic, Forth. 

Uspe Pilot- 

Edit circle lextos. Editor de Assembler. 
Desassemblador. 

Debugadnr. 

Visicalc. 

Wordstar 
e mottos oulros. 
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SYSDATA III 
Caracleristicas l£cnicas, 
Para aqueLes que quercm 
saber tuda 

Tbtsl compatib didado com o 
TRS-SO Modelo III da Radio 
Shack. 

Prutessador Z-0O-A. 
Video de Ifi x 64 on 10 x 32 
(llnhasxcolunas), 
Alimenlacio de 110 V ou 220 V. 
Toclnd o a Ifa n umG rico de 
69 ted as, 

Teel ado numGrico reduxtdo 
com 4 led as de Fungdes. 
GiUficos com 120 x 40 ponies 
no video. 
Aceila aid dues RS-232-C 
(Sincmnas ou Ass in crones ). 

Modem (optional], 
Saida paralela para 
impressora, 
Placa controtodora para ale 
4 drives de 3 e V4'\ duple 
d e n s id ade ( 100 K B yte s po r 
face], face simples {duple face 
option all. 



Op^6es tutu ras: 

Video com pel ivel IB x 64. 

(linhas colunas). 
ExpausJo at£ 258 KBvtes 
de RAM 

Alla resell U£lu gr^fica e cor 
Interface pare acionemenlo de disco rigido 
(Winchester) fie 5. 10 ou 20 M Bytes. 

Clock dob redo (4,0 MHZ). 
Toial compatihilkiade com oTRS BO 

Mod IV 
CP/M versa o 3.0. 
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W ista edigao de MICRO SISTEMAS t rata de um assunto que vem sendo 
muito badalado u/timamente, inclusive no meio dos usuarios pessoais. 
* Sao os Bancos de Dados que, com a entrada no ar do Cirandao, 
tornam realidade para o uso domestico as perspectivas de acesso a fontes 
complementares de informagao. 

Aproveitamos a oportunidade, tambem, para falar sobre os 
administradores de dados, isto e, os sistemas que gerenciam as Bases de 
Dados, no caso as criadas em microcomputadores. Neste particular, muitas 
vezes o tema torna-se confuso, visto existirem no mercado dezenas de 
produtos, entre nacionais e norte-americanos, categorizados como Data- 
Bases ; Bancos de Dados; SGBD (Sistemas Gerenciadores de Bancos de 
Dados); DBMS (DataBase Management Systems ) ou nomes semelhantes. De 
quebra, os usuarios de equipamentos compativeis com o TRS-80 modelo III 
poderao contar com um programa de alta qualidade : um SGBD 
desenvolyido por nosso colaborador Ivan Camilo Cruz, 

Registramos, ainda, nosso prazer em contar neste numero com a 
presenga de quatro profissionais de peso nas paginas de MS' sao eles os 
professores Antonio Furtado e Daniel Menasce, da PUC-RJ, am bos 
profundos conhecedores da materia Banco de Dados; o professor Jorge da 
Cunha Pereira Filho, ativo participante do mercado editorial, com diversos 
titulos publicados na area de Informatica, e nossa companheira Luzia 
Portinari Greggio, da revista Informatica & Administragao e membro da 
Diretoria da Andei, que aqui escreve sobre as questoes da privacidade do 
cidadaa 

Todo este material foi cuidadosamente reunido para que nossos leitores 
possam, de uma vez, entender todos os detalhes desta aplicagdo em micros, 
atualizando-se sobre os produtos e servigos encontrados no mercado 
brasileiro. 



• Tambem nesta edigao inauguramos um novo espago, o BANCO DE 
SOFTWARE, ou simplesmente Banco. O objetivo desta area sera alocar os 
pro gram as menores e mais simples com uma preocupagao, tanto no aspecto 
visual quanto no texto, de melhor utilizar nosso espago fisico, desta forma 
possibilitando uma revista mais dinamica e uma maior rapidez na veiculagao 
do grande volume de material de qualidade que nos chega. Vale dizer que no 
numero anterior nos referimos a nova segao como Buffer, porem 
posteriormente admitimos que Banco seria um nome mais objetivo. Assim, 
ficamos aguardando opinioes e sugestoes. 

• Para finalizar, gostanamos de dividir com nossos amigos a alegria por 
nossa colega Graga Santos ter recebido o premio Imprensa Andei/ Novadata 
por seu trabalho ft Editores de Texto ”, publicado em nossa edigao de 
setembro de 84. Consideramos o premio um justo reconhecimento pelo 
trabalho de equipe que temos desenvolvido nos liltimos anos, visando levar 
a voce uma MS coda vez melhor. 
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A Compumiqo 
vai deixar voce 
com a melhor 
impressao 
doUnitronAPD 



Venha assistir a uma denn >i ist rac^Tu ) dt ) 
Unitron acessando mais dt*3<X) bancos 
de dados nos EEl 'Ue Eraixa. E mais: 

• PROJETO .\Rl IAN I )A I X) SKKPRO ( 111 .IA IK IRC ) ) 

• PKOIETOCIRANI )AO DA EMHRATH. 

• BANCOS l)E I )AI X)S PARTIO DVRES 

• TRANSI'ERENCIA TOTAI . I )F. ARQI l\OS 
ENTRE O l 'NITRON E IBM K; COMl»A'ri\T-IS. 



Nao existe nada mais 
pessoal do que uma impressao 
digital. Ela e unica. Ninguem 
tern igual. O mesmo acontece 
quando voce compra o seu 
UNITRON AP 11 na 
COMPUMICRO. 

Aqui voce tern um atendi- 
mento personalizado e exclusive. 

O que este atendimento 
tern de exdusivo? E que na 
COMPUMICRO voce tern todas 
as informagdes do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas, 



ta 



todos de nivel superior, estu- 
da o seu caso e indica-lhe a 
melhor configura^ao para as 
suas necessidades. Se voce nao 
puder vir ao nosso escritorio, 
onde sera recebido com todo 
conforto e tera a sua disposi- 
<;ao um analista com todo o 
tempo disponivel para 
mostrar-lhe o produto, nos ire- 
mos ate voce. E apos a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tencia tecnica, etc... 

E sabe quanto voce paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por voce. 

Pessoalmente. 



ccrrpj 



o 



% 



% 
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O sorteado deste mfis, que receber* uma 
assinatura de um ano de MICRO SISTEM AS, 
6 Onofre Junior de Souza, de Minas Gerais. 

/ PI RAT AS A VISTA 7 



Leitor assfduo de MICRO SISTEMAS, 
conceituadi'ssima revista, venho atrav6s des- 
ta informar ao colega e colaborador Hendy 
Takeshi Yabiku (MS n9 28, pig. 18: Ciclo- 
tron: supere esta barral) que o seu programa 
Cidotron foi pirateado. O autor de tal fa- 
ganha 4 um aluno do Coldgio Objetivo: 
Eduardo Forner. 

Aproveitando-se do software alheio,usou 
como vefculo o jornal A cabega, do pr6- 
prio colggio, para editar o programa em que 
ete se diz autor. Na cbpia do programa, ele 
simplesmente tirou as linhas de 1 atd 50, e 
de 1000 a 2000, que s 5o explicates e limi- 
tes de pontos. Nas linhas 200 e 300, a va- 
riivel P foi modificada para 500, e nas li- 
nhas 400 e 450, o GOTO 20 foi transfor- 
mado em GOTO 50 e o lago diminufdo. 

Como a equipe de MS sabe que 4 impos- 
sfvel dois programas safrem iguais at6 no nu- 
mero das linhas, est£ bem claro que Eduar- 
do Forner nSo passa de mais um pirata. Pe- 
diria a voc6s que agissem de forma drdsti- 
ca, pois na pdgina do Editorial esti escrito 



que "todos os direitos de reprodugSo do 
conteudo da revista estSo reservados equal- 
quer reprodugSo, com final idade comercial 
ou nSo, s6 poderd ser feita mediante auto- 
rizagSo previa". 

Sei tambdm que 4 impossfvel MS mandar 
a marinha brasileira atrds destes piratas, mas 
se cada leitor fizer a sua parte, jd ser 3 de 
grande valia para o contfnuo progresso da 
Informdtica brasileira, nSo somente entre- 
gando os piratas , mas colaborando, opinan- 
do e sugerindo iddias. 

Marco Aurdlio A. C. Silva 
Goidnia-GO 

Bom , antes de mais nada, queremos agra - 
decer por sua prestag£o de servigo, Marco. 
Sib pessoas como voci que nos fazem acre- 
ditar em um horizonte mais claro para o 
software nacional. Para vooi imaginar a tur- 
bu/incia que existe nesta irea, recentemente 
constatamos que diversos programas publi- 
cados em MS estavam sendo comercial iza - 
dos em fita K-7, sem que citassem sequer a 
fonte ou os verdadeiros autores\ Rea/mente , 
nSo hi forga naval que possa combater a fal- 
ta de itica e de respeito 4 verdade. Estes fa- 
tos ajudam a demonstrar que a questSo dos 
direitos autorais na produgSo de software 
nSo esti restrita somente a uma legisl agio 
especifica, mas tambim a uma nogSo ele- 
men tar de princfpio moral ! Mas vamos dei - 
xar que as providincias cabiveis sigam pelo 
caminho pertinente. 

Quanto 4 sua carta, remetemos uma c6 - 
pia para o Coligio Objetivo e outra para o 
autor, nosso amigo Hendy Takeshi. Ati o 
mo men to nSo recede mos nenhum cornu ni- 
cado do Coligio, mas re ce be mos a opiniio 
do Hendy, que a seguir transcrevemos: 

"Nosso colega Marco Auri/io esti do 



nosso la do, assim como muitos outros lei- 
tores de MS. Mas, infe/izmente, existem 
muitos piratas (e plagiadores) prontos para 
atacar ao nosso manor descuido. Mas exis- 
tem leis para nos proteger. 

Ta/vez a pessoa responsive! por este a to 
estupido (nSo vejo outro ter mo) nSo esteja 
em seu juizo perfeito: que rend o dar uma de 
inte/igente, acabou mostrando que 4 com- 
p/etamente ignorante, e nSo teve miolos su - 
ficientes para desen volver um programa, 
nem para pensar nas possfveis consequin- 
cias que este ato poderia trazer. A estas pes- 
soas, o meu desprezo. Ao Marco Aurilio, 
me us mais sinceros agradecimentos. " 

Hendy Takeshi Yabiku 
Sio Paulo-SP 



CONVERSAO EM MS 



Parabdns pela MS. Um especial para- 
bdns 4 Rodada MS e ao colega PY1DWM- 
Quito: estou gostando muito. Pena que a 
Rodada MS do n9 33: Arquivo de comu- 
nicados, n£o foi para a linha Sinclair (tenho 
um TK-85 e cada um puxa a sardinha para 
o seu lado . . . Serd que nao dd para adaptar 
o programa da Rodada MS n9 33, do Al- 
cione Sperandio, para o TK? 

Muito bons os programas Aventuras na 
selva e Aventuras em Serra Pe/ada. Conti - 
nuem. (Consegui sair da selva depois de uma 
semana, mas no Serra Pelada ainda nSo con- 
segui achar a pepita, apesar de ter modifi- 
cado a agao 84. A dica seria garimpar na 
terceira hora do dia 11?) 

No programa Penosa travessia (MS n9 



SER VI QO 
AO ASSINANTE 



Assinale com um x a sua opgao 
ASSINATURAS: 

□ NOVA DRENOVACAO 

Para novas assinaturas, preencha o cupom anexo. 

Para renovagao, basta colar a etiqueta que acom- 
panha a sua revista no espago reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal a 
ATI EDITORA LTDA. no valor de Cr$ 39.000,00 
para os nossos escritdrios no Rio de Janeiro ou Sao 
Paulo. 

□ mudanqa de ENDEREQO Enderapo: 

Preencha o cupom ao lado com o novo endere- Cidade• 
go e cole no espago acima a etiqueta que acompa- 
nha a sua revista. Remeta-nos, para os enderegos 
abaixo. Estado: 

Anahse, Teleprocessamento e 
Informatica Editora Ltda 

SAO PAULO - Rua Oliveira Dias, 153, CEP: 01043, Tels.: (011) 853-7758 e 881-5668 

RIO DE JANEIRO - Av. Pres. Wilson, 165 -Gr. 1 210/16, CEP: 20030, Tels.: (021) 262-5259 e 262-6437 
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28, pdg. 54), as alteragdes do leitor Ronaldo 
L. Burgatti (publi cadas na Segdfo Cartas de 
MS n9 33) ndo fundonaram. Fiz as seguin- 
tes modificagoes e foi batata: 

15 FOR F= 1 TO 57 

17 PRINT 0 CHRS M; ; 

34 PRINT AT A,B; AT A,B; " 

48 GOSUB 29 

Por fim, gostaria de dizer que prefiro ver 
em MS programas aplicativos ou entdo jogos 
do tipo que citei anteriormente. 

Josd Reynaldo da Fonseca (PY2%JRF) 
Avard-SP 

Primeiramente, a equipe agradece os elo- 
gios e o PY 1 DWM-Quito aproveita para the 
mandar um forte 73. Agora, com relagio i 
conversffo do programa Arquivo de comuni- 
cados, devemos I he informar que: analisando 
o espago disponfvel em nossa revista, e cons- 
tatando que somos uma equipe pequena fa- 
ce ao desen volvi men to ace/erado de MS, de- 
cidimos que MICRO SISTEMAS evitari, 
dentro do possfvel, fazer adaptagdes e con - 
versdes de programas ji publi cados. Re sol - 
vemos, desta forma, dar prioridade absolute 
is criagdes realmente originais. £ interessan- 
te frisar que esta decisSo foi tomada, em 
grande parte, a partir das sugestdes e coloca- 
gdes da maioria dos nossos lei to res. De qua! - 
quer forma, deixamos aqui regis trade a sua 
sugestSo. 

Com referenda ao programa Aventuras 
em Serra Pelada, para nSo estragar o espfrito 
do jogo, vamos Ihe dar somente esta dica 
(nao teria nenhuma graga se entregSssemos o 
ouro ao bandido, nSo acha?): garimpe sem- 
ore, insista que nSo hi erro, alim do citado 
na agSo 84, conforme publi camos na Segffo 
Cartas de MS n? 33. Por ultimo, agradece - 



mos por nos enviar as suas modificagdes pa- 
ra o Penosa travessia: obrigada e escreva 
sempre. 



/ ESQUEMA E HOBBY 

Sou propriet£rio de um TK-82C (com 
expans£o de 16 K) e venho acompanhando 
o projeto MICRO BUG, o qual tenho gosta- 
do muito, prindpalmente pela forma com 
que vem sendo apresentado. Meus para- 
bins pelo belfssimo trabalho do CPD de 
MICRO SISTEMAS: com o MICRO BUG 
meu TK ficou mais poderoso. 

Gostaria tamWm de estudar o hardware 
do meu equipamento, por isso, pego-Jhes 
que me informem aonde posso conseguir o 
esquema interno do TK, pois no manual 
existe apenas uma foto da parte interna do 
computador. 

Onofre JOnior de Souza 
Belo Horizonte-MG 




Desculpe-nos, Onofre, mas nSo temos co- 
mo auxilii-lo. Em nossa Segio de Cartas de 
MS n? 34, publi camos uma carta que nos 
pedia a mesma coisa. E 14 tambim afirmi - 
vamos que nSo tmhamos como fornecer 
uma informagSo que dependia exdusiva- 
mente dos fabricantes de microcomputa- 
dores. Infelizmente, ati o m omen to, os fa- 
bricantes nSo mudaram a sua polttica de res- 
trigSo de informagdes aos usuirios e vefcu - 
I os especial izados, conforme pode ser veri- 
ficado em nossa reportagem sobre Hobby s- 
tas (publi cada em MS n9 37, pig. 12), 
onde alguns fabricantes se posicionam da - 



ramente com relagSo a este assunto. D4 uma 
lida, ok? 



SUGEST0ES 



Pretendo fazer duas sugestdes, que con- 
siders uma modesta contribuigSo para me- 
Ihorar ainda mais esta inseparSvel revista (e 
espero que seja logo atendido): publiquem 
mais jogos, muitos jogos para a gente se dis- 
trair bastante, pois, afinal, ningu^m 4 de fer- 
ro! Mas n£o 4 sb esta nSo (isso para voc$s 
verem que eu tambim gosto de assuntos si- 
nos), gostaria tamWm de ver em MS artigos 
abordando alguns temas do momento: redes 
locais, teleprocessamento, modems, banco 
de dados... 

Jesuino Cavalcanti Dimas 
Porto Alegre-RS 





Apreciaria muito se MICRO SISTEMAS 
publicasse uma edig£o especialmente voltada 
para £rea de Telecomunicagdes, pois sinto 
falta deste tipo de informagSo, visto que a 
cada dia cresce o numero de aplicagdes liga- 
das is Comunicagdes e 4 Informatica. 

F&bio Lucena de Souza 
Botucatu-SP 



Envie suas corresponddncias para: ATI — 
Anftlise, Teleprocessamento e Informatica 
Editora Ltda., Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, Segio Cartas/ Red agao 
MICRO SISTEMAS. 



A GUARDIAN GARANTE 
ENERG1A ATODA PROVA. 




GERAD0R ELETR0NIC0 GERATR0N: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
deemergGncia. Capacidadede200 VA. 
com autonomia de at6 90 minutos. 

ESTABILIZADORES DE TENSA0 
GUARDIAN: A PROVA DE 
FLUTUApdES E TRANSIENTES. 

Ultra-rcipidos, protegem o seu CPD con- 
tra variagdes da rede em at6 + 22% e es- 
tabilizam a saida em + 1 % . Incorporam 
filtro na entrada, transformador isolador 
e chave de transference para a rede . Ca- 
pacidadede0.25 KVA a 100 KVA. 




SISTEMA NO BREAK GUARDIAN: 
ATODA PROVA. 

£ a solugSo mais completa contra tran- 
sientes. flutuagOes e falta total de ener- 
gia. A Linha B4sica varia de 2,5 KVA a 
100 KVA. DispOe de chave estetica de 
saida e utiliza t6cnica de sintese da for- 
ma de onda senoidal, com tiristores. 

A Linha Econdmica 6 a solugSo para 
CPD's de pequeno porte, com capacida- 
dede0,25 KVA a 5 KVA. 

N2o deixe que a m2 qualidade da energia 
eldtrica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 




GUARDIAN 



Equlpamentos EletrOnicos Ltda. 

Rua Dr Garmer. 579 
Rio de Janeiro - CEP 20 971 
Rio PABX (021) 261-6458 - (021) 201-0195 
Telex (021)34 016 
Sao Paulo (011)270-3175 

REPRESENTANTES EM T0D0 0 BRASIL 



Geratron' 



Estabilizadores de tensao 



Sistemas No Break 





A falta de uma boa apresenta^ao pode comprometer um 
otimo trabalho, nao acham? Com essas duas rotinas para 
micros Sinclair este problema esta resolvido 



Um toque de elegancia 
em seus programas 

Alberto M. C. Sarabando 



C om o passar do tempo percebe- 
mos que um bom programa pre- 
cisa tambem de uma boa apre- 
senta 9 *o. Com figuras elucida- 
tivas, titulos grandes e marcantes, instru- 
9 oes adequadas de manipula 9 *o, efeitos 
bonitos, enflm, uma produ 9 *o elegante. 
Tudo isso causa um impacto visual ac 
usuario do programa, o que provoca, na- 
turalmente, maior interesse. 

Temos notado que bonitas apresenta- 
9 des funcionam como a capa de uma re- 
vista. o aspecto de uma pessoa ou a fa- 
chada de uma casa. Para que algu*m se- 
ja levado a entrar em um programa pre- 
cisa estar satisfeito com sua aparencia 
externa. Nao h* nada mais infeliz que 
um programa bem elaborado, mas com 
uma apresenta 9 *o pobre, sem criativida- 
de. 

Criar ilustra 9 oes e editar textos em 
um micro da linha Sinclair exige muita 
dedica 9 *o e pacienda. Para se elaborar 
uma apresenta 9 a 0 atraente deve-se im- 
primir caracteres na tela que formem 
figuras harmoniosas, titulos bonitos e 
frases bem colocadas. Mas para isso ha- 
ver* muito a fazer. 0 programador dis- 
pensara horas de trabalho criando os de- 
senhos, centralizando-os na tela. Dever* 
verificar os tamanhos e tipos de letras 
dos titulos, armar as frases, separ*-las 
com espa 90 s distintos etc. Hi uma infi- 
nidade de outras pequenas tarefas que 
um usu*rio deve se habituar. 

Alguns programadores, geralmente, 
fazem um rascunho em papel quadricu- 



lado a parte para s 6 entao utilizar os co- 
mandos do micro e tomar real a sua obra 
na tela, com as corre 9 oes necessarias de- 
pois de verificar os efeitos de video. 

Foi pensando nessas dificuldades que 
elaboramos este programa, que auxilia o 
usuario a criar interessantes efeitos de 
tela e bonitas apresenta 96 es, com extre- 
ma facilidade e rapidez, sem necessidade 
de esb 090 S em papel i parte. Ele poder* 
usar diret ament e o video e gravar a apre- 
senta 9 *o (tela) em qualquer programa 
que quiser. como veremos mais adiante. 

USANDO TODO 0 EQUIPAMENTO 

A partir de agora voce ter* a seu dis- 
por uma s*rie de artiffcios, t*cnicas pr*- 
ticas e velocidade de programa 9 *o que a 
linguagem Assembler proporciona. E 
nao pode imaginar a utilidade do progra- 
ma, que desenhar* na tela em todas as 
dire 9 oes, com a rapidez que desejar, im- 
primindo qualquer um dos caracteres do 
teclado, inclusive em modo gr*fico no 
video. Haver* ainda instru 95 es auxilia- 
res, como cursores, apagadoresde erros, 
inversao de video etc. 

Al*m de tudo esse programa ficar* 
protegido no topo da memdria, o que 
lhe dar* liberdade de ler um outro pro- 
grama da fita cassete, criar uma ou mais 
imagens conforme desejar, grav*-lo jun- 
to com essas imagens, ler outro progra- 
ma e repetir tudo de novo, que a rotina 
em Assembler nao ser* afetada. 



A grava 9 *o criada por voce ser* em 
forma de matriz no sistema BASIC. As- 
sim, nao ser* necessario nenhum outro 
comando al*m de um simples PRINT, e 
a impressao surgira na tela. 0 programa 
e armazenado em matriz, por exemplo, 
DIM AS, DIM BS, DIM CS etc. e sera 
chamado por PRINT AS, PRINT BS, 
PRINT CS... 

Um outro aspecto 6 necessario desta- 
car: 6 quanto a economia de memdria 
que este programa proporciona. O arma- 
zenamento em uma matriz e maisecono- 
mico que utilizar as linhas com PRINT 
e PLOT para formar a mesma tela. 

PROTE£ AO DO PROGRAMA 

Funcionando totalmente em lingua- 
gem Assembler, ele 6 digitado para uma 
linha REM e com uma simples instru 9 *o 
ficar* protegido acima da RAM TOP 
(MENTOP). Ao mesmo tempo, dar* um 
comando NEW em toda a memdria do 
micro que, para todos os efeitos , pensard 
que nao armazena nenhum programa na- 
quele momento. Por esse motivo, voce 
poder* ler outro programa, grava-lo ou 
apaga-lo quantas vezes quiser, que a roti- 
na localizada no topo da memdria nao 
ser* afetada. E com toda a prote 9 *o,n*o 
usar* mais que 600 bytes, o que nao re- 
presenta quase nada em termos de em- 
prego de memdria. 

Uma das primeiras tarefas * digitar a 
listagem 1 , com as seguintes observa 9 des: 
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1) A linha 1 (REM) dever* ter no mfni- 
mo 610 caracteres quaisquer. 

2) Se voce quiser, poder* introduzir as 
linhas 5 e 7 atraves de um Monitor As- 
sembler. 

3) As linhas 3/4/6/8/9/10/1 1/12/13/14/ 
15/16 servem apenas para a constru 9 *o 
e compila 9 *o, para a linguagem Assem- 
bler, dos cddigos das linhas 5 e 7. 

4) £ imprescindivel que voce digite a li- 
nha 1 e a linha 2 , mesmo se voce utilizar 
um compilador. Repetindo: inclusive a 
linha 2 , porque sem ela o sistema nao 
funcionar* normalmente. 

Quando terminar de digitar a lista- 
gem 1 , verifique se todas as linhas foram 
corretamente digitadas, principalmente 
os cddigos Assembler das linhas 5 e 7. 
Seria conveniente que voce gravasse o 
programa, assim como est*, por precau- 
9 * 0 . Caso voce j* o gravou ou tenha a 
certeza de que ele est* perfeito, digite 
RUN ENTER (ou RUN NEW LINE) e 
aguarde alguns segundos porque as li- 
nhas 5 e 7 estarao sendo compiladas pa- 
ra a linha 1 . Depois disso pode dar um 
LIST e ver como a linha 1 mudou. 

Entao apague as linhas de 3 a 16, dei- 
xando as de numero 1 e 2 , e acrescente 
a estas linhas: 



3 PRINT AT 5, 5; "PROGRAMA AUXILIAR 
LIAR PARA” ,-DESENHAR E ESCREVER 

EM ASSEMBLER- ; AT 10,0; "ESTE PROG 
RAMA SERA PROTEGIDO NA RAMTOP."; 

*T 14, 5; "PARA UTILIZA-LO DIGITE" 

; AT 16,9; "RAND USR 32000" 

4 FOR N* 1 TO 300 

5 NEXT N 

6 RAND USR 16514 

7 SAVE "SUPERTELA" 

8 RUN 



O programa est* pronto e dever* ser 
gravado em deflnitivo. Quando voce o 
ler da fita cassete, ele dar* a apresenta- 
9*0 contida na linha 3 com uma pausa. 
Em seguida, proteger* o programa acima 
da RAMTOP, dando um NEW nestas li- 
nhas. Ent*o poder* agora comand*-lo 
com um RAND USR 32000 e criar todo 
o tipo de tela que imaginar com os co- 
mandos que iremos aprender logo adiante . 

Para arquivar a “tela” que voce criou 
ou salv*-la junto com algum programa, 
proceda da seguinte maneira: leia o pro- 
grama da fita cassete e inclua nele a lis- 
tagem 2 . 

N*o * necess*rio que as linhas tenham 
aquela exata numera 9 *o, mas * preciso 
que estejam sempre em seqiiencia. 

Quando incluir a listagem 2 em um 
programa para o qual deseja criar uma 
apresenta 9 *o, dever* dar um GOTO para 
a linha em que estiver o comando RAND 
USR 32000 e fazer o desenho. Quando 
voce pressionar a tecla C ou V retomar* 
ao sistema BASIC para a linha subse- 



qiiente ao comando, armazenando a tela 
em uma matriz, no modo FAST, o que 
levar* alguns segundos. Pronto, o video 
est* armazenado, no caso, na matriz 
DIM D$, e se voce digitar PRINT DS 
ver* o seu desenho. Se quiser, poder* 
apagar as linhas da listagem 2 e incluir a 
linha PRINT DS antes de salvar o pro- 
grama. 

OBS.: 1) £ possfvel armazenar outras te- 
las. Para isso, depois de arquivar na ma- 
triz DS, mude-a para E$, F$ etc., dan- 
do as instru 9 oes necess*rias, por exem- 
plo, PRINT DS, PRINT ES, respectiva- 
rriente. 

2) Importante. Depois de armazenar a 
apresenta 9 *o em uma tela e gravar o 
programa, nunca mais digite RUN para 
rodar o programa, para n*o limpar o ar- 
quivo da matriz. Digite apenas GOTO 1 
ou de um GOTO para a linha onde se lo- 
caliza a impress*o da matriz. Verifique, 
inclusive, se no programa n*o h* algum 
comando RUN. Em caso positivo, tro- 
que-o por GOTO 1 ou GOTO IMPRES- 
SAO DA MATRIZ. 

Bem, agora que voce tern o programa 
gravado, sabe para que serve e conhece 
suas caracteristicas, vamos ver como ele 
funciona. 

O programa consta de duas rotinas 
principals. Uma para desenhar, atravds 
de PLOT/UNPLOT e outra para escrever, 
utilizando os caracteres do teclado. Pa- 
ra melhor compreens*o, vamos estud*- 
las separadamente. 



ROTINA PARA DESENHAR 



Como voce j * sabe, para chamar essa 
rotina e necess*rio digitar RAND USR 
32000. Ap 6 s essa instru 9 *o aparecer* 
um pequeno quadrado, que chamaremos 
de ponto, no canto inferior esquerdo da 
tela. Este ponto estar* piscando fraca- 
mente e voce poder* gui*-lo pela tela atra- 
ves das teclas de 1 a 8 Mas ele n*o ser* 
impresso porque est* em UNPLOT. Pa- 
ra que haja impress*o * necess*rio que 
voce digite P para passar para PLOT e 
quando quiser retornar para UNPLOT 
digite U. Eis as instru 9 oes possiveis atra- 
ves das teclas: 

P - Plota o ponto. No inicio o sistema 
est* em UNPLOT. 

U - Unplota o ponto. £ a fun 9 *o inver- 
sa de P. Cria espa 90 s ou apaga pontos 
plot ados. 

1 - Direciona o ponto na diagonal no 
sentido para cima a esquerda. 

2 - Direciona o ponto na diagonal no 
sentido para cima * direita. 

3 - Direciona o ponto na diagonal no 
sentido para baixo a direita. 

4 - Direciona o ponto na diagonal no 
sentido para baixo * esquerda. 

5 - Direciona o ponto no sentido hori- 
zontal a esquerda. 



6 - Direciona o ponto na vertical no sen- 
tido para baixo. 

7 - Direciona o ponto na vertical no sen- 
tido para cima. 

8 - Direciona o ponto no sentido hori- 
zontal * direita. 

\ - Aumenta a velocidade deimpress*o. 
A cada leve toque a velocidade * acelera- 
da. Mantendo a tecla pressionada aumen- 
ta-se a acelera 9 *o. 

D - Diminui a velocidade. £exatamen- 
te o inverso de A. 

L - Limpa a tela. Al*m disso, todo o sis- 
tema * zerado e funciona como se esti- 
vesse come 9 ando naquele exato momen- 
to. 

C - Copia a tela. Apds pressionar esta 
tecla, o sistema retornar* ao BASIC ar- 
mazenando a matriz (Listagem 2). 

V - Copia a tela em video inverso. O 
mesmo que C s 6 que h* invers*o de video. 
E - Aciona a rotina para escrever (Edi- 
tar texto). Entrada na rotina 2. 

OBSERVANCES: 

1) Para facilitar a compreens*o de quern 
est* se iniciando, note que nos quadri- 
nhos menores das teclas de 1 a 8 as setas 
indicam o sentido de movimenta 9 *o. 

2) As teclas 1 a 8 e A e D tern auto-re- 
peti 9 *o ; isto *, enquanto estiverem pres- 
sionadas, realizar*o sua fun 9 *o constan- 
temente. 

3) O programa come 9 a com uma veloci- 
dade m*dia. A auto-repeti 9 *o permite 
at* 200 velocidades diferentes com os 
comandos A e D. 



ROTINA PARA ESCREVER 



Essa rotina, como j * vimos, * aciona- 
da pela tecla E, na rotina anterior. Apa- 
recer* agora um cursor gr*fico no canto 
esquerdo superior, que corresponde ao 
car*ter gr*fico de cddigo 136 (veja o 
manual). Voce poder* gui*-lo para a di- 
reita ou para a esquerda nos cantos su- 
periores. 

A impressao dos caracteres * auto- 
m*tica ap 6 s o pressionar da tecla e se ini- 
cia na posi 9 *o do cursor no video. Mas 
antes de mostrarmos as fun 9 des possi- 
veis nesta rotina, veremos o significado 
de cada cursor gr*fico, identificado pelo 
codigo do manual do usu*rio. 

136 - £ o primeiro que aparece e passa 
por cima dos caracteres impressos sem 
apag*-los. Os caracteres impressos com 
esse cursor ser*o impressos em modo 
normal. 

1 28 - Ele apaga os caracteres pelos quais 
passar. Os caracteres s*o impressos em 
modo normal. 

137 - Ele passa por cima dos caracteres 
sem apag*-los. Escreve em modo gr*fico. 

138 - Apaga os caracteres pelos quais 
passar. Escreve em modo gr*fico. 
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UM TOQUE DE ELEGANCIA EM SEUS PROGRAMAS 



A funcao dos cursores 6 a de orientar 
o usuario para o modo que se encontra 
o sistema no instante da opera^o. 

Antes de vermos como os cursores sao 
acionados, uma observa^ao. Todas as te- 
clas quando pressionadas, imprimem 



seu respectivo career. Por isso, como 6 
6bvio, para se comandar o sistema com 
as devidas teclas, como veremos adian- 
te, 6 necessdrio pressiond-las junto com 
SHIFT, para que nao ocorra a impressao 
delas. Eis o esquema: 



SHIFT 5 — Movimenta o cursor para a 
esquerda. 

SHIFT 8 - Movimenta o cursor para a 
direita. Quando ele chegar ao fim da li- 
nha reinicia na linha seguinte. 

SHIFT 9 - Muda o modo de impressao. 



Listagem 2 



1 RAND USR 32000 

2 FAST 

3 DIM D$ ( 704 ) 

4 FOR 1-0 TO 21 

5 FOR J=1 TO 32 

6 LET D$(J+32*I)-CHR$ PEEK (( 
PEEK 1 6396+256*PEEK 16397)+J+33* 
I) 

7 NEXT J 

8 NEXT I 

9 CLS 
10 SLOW 



Se estiver em normal passard para grdfi- 
co e vice-versa. Observe que o cursor e 
alterado para melhor orienta^o. 

SHIFT 0-0 cursor que passa por cima 
dos caracteres semapagd-los, passar^ ago- 
ra a faze-lo e vice-versa. O cursor tam- 
bem sera alterado. 

SHIFT 4 - Retornar£ a primeira rotina 
(rotina para desenhar). 

OBS.: 1) Os caracteres correspondentes 
as letras, numeros e demais simbolos se- 
rao impressos no lugar onde estiver o 
cursor. A impressao das letras (A a Z) e 
numeros (0 a 9), do ponto (.) e do espa- 
90 e direta. Para a impressao dos simbo- 
los e necessario que se pressione, com a 
tecla correspondente, a tecla SHIFT, co- 
mo dissemos anteriormente. 

2) Importante. Apenas serao impressos 
os simbolos normais que sao: S ( ) “ - 
= +:;?/ * <> , £ . Os compostos de 
simbolos normais como: ” ” <= >= < > 
nao poderao ser impressos diretamente. 

Se voce provocar a impressao de um sim- 
bolo composto, palavra-chave ou fun- 
9ao, o sistema se perdera. 

3) Nesta rotina todas as teclas tern auto- 

repet^ao. & 



Alberto M. C. Sarabando 6 engenheiro for - 
mado pel a Facu/dade de Engenharia de San- 
tos. Ele 6 usudrio de um micro C P-200 e de 
uma calculadora T/-59. Cria prog ram as de 
Ccltculo estrutural para Engenharia Civil e 
programas de Matemdtica. Estuda linguagens 
BASIC e Assembler. 



Listagem 1 



1 REM (com 610 caracteres quaisquer) 

2 REM PROGRAMA AUXILIAR PARA 
DESENHAR E ESCREVER EM ASSEMBLER 

3 FAST 

4 LET M= 1 651 4 

5 LET A$ =" 21 FF7C2 2044001 45021 
1007D219740EDB0CDC303C92 10000223 
64022877D01757D1 1 6D7D3EFDBC3E642 
8051 287021 80302871 2ED4B36402A254 
07DFEDF28DFFEFECABC7DFEFDCAE57DF 
EBFCADF7DFEFBCA227FCD897D3EFFB82 
80FB9280F3E2CB8280D3E40B9280B180 
A0 4 1 8EE0C 1 8EE05 1 8F00D1 1 050A1 B7AF 
E0020FAED43877D3EC8323040CDB20B3 
E64 32304 0ED4B877DED433640CDB20BC 
3 1 E7D00007CFEFD28 1 1 FEFB28 1 0FEF72 
80FFEEF28 1 3FEDF28 1 7C9040DC90C04C 
97DFEEF280 1 050CC97DFEEF28F1 0D05C 
97DFEEF28F9 1 8E43EDFBC28063E6B323 
040C92A0C402306 1 60E2 1 7EFE762803C 
68077230D20F41 0F0 1 8E2CD2A0AC3007 
D3A6 1 7D573EF7BC28083E00BA2809 1 5 1 
8063EFFBA280 1 147A32617D1 100051 B7 
AFE0020FAC3 1 E7D" 

6 GOSUB 11 

7 LET A$= " 0 1 0000CDF5083E00D7 3 
E88FE8028 1 92A0C40ED4B357E78FE002 
8071 121 001 9051 8F423097E32 1 37E0 10 
000ED430D7ECDF5083E88D7CDBB02E5C 
1 79FEEF2809FEF728052C28EF 1 824213 
57E1 1 367E78FEDECAE57EFEF6CAFC7E2 
1 167E1 1 867EFEFA28 1 FFEFC2834FEEEC 
AD77ECDBD077EF5ED4B357ECDF508F1C 
600D7CD3B7FC3007F1 AFE00280A3E00 1 
27EFE802822 1 8303E80 1 27EFE8028 1 4 1 
8227EFE8028 1 53E0032 1 37E3E8077 1 AF 
E0028043E8A1 8123E80180E3E8877 1 AF 
E0028043E89 1 8023E88323F7ECD3B7F1 
822ED4B357ECDF508 3A1 37ED7C3007D7 
EFE00280A3D1 8043D123E1F771 805 1AF 
E0020F4C30C7E3E0C18023E1B32207F2 
1 357E1 1 367E7EFE1 F280A3C1 8043C1 23 
E0077 1 805 1 AFE1 520F4C30C7E3E00323 
57E32367E32867E3E8832 1 67E323F7EC 
D3B7FC3 1 B7E0 1 06060B78FE0020FAC9" 

8 GOSUB 1 1 

9 SLOW 

10 STOP 

11 FOR K= 1 TO LEN A$ STEP 2 

12 LET A= ( CODE A$ ( K ) -28 ) * 1 6+CO 
DE A$ ( K+ 1 ) -28 

13 POKE M,A 

14 LET M=M+ 1 

15 NEXT K 

16 RETURN 



10 



MICRO SISTEMAS. fevereiro/85 




0 Elppa II Plus 6 um micro compulartor 

r ) Qua rem macro vamagens. 

Mo quase ariezanaimente, por ran to test ado 
um a um 

E isso e uma macro quandade. 

Como 6 Mo com comporertes da alia quandade. 
denlro dos melhores padrOes de Engenharia, a 
conliabiiidade do E'ppa II Plus 4 macro 
O cusio de manuienqflo e micro o umco com um ano 
de qaraniia - macro qualidade com macro garaniia. 
je com o preco aeon race uma tdsa mreressanie 
devena ser macro, mas quando voce venTita o custo 
de uma contiguracSo ve que 6 micro. 

A assisi^noa tdenica 6 macro - direta do fabric anie 
ou at raves de seus credeneiados 
Ele d um Apple* compativei e dispde de vasia gama 
de expan sdes e oeri fences a $ua dispose 50 - 
CONTROLADOR DE DRIVE, CP/M PAL M 80 
CO LUNAS. SOFTSWITCH I6K. 64 K 120K GRAPH + 
SUPER SERIAL CARD. SINTFTlZADOH DE VOZ. 
MONITOR ill. ele . 'macro vaolagem. 



Tem hora que precisa ser macro. 

Conclusdo. S e*a para voce ou para sua empresa. 
micro ou mscfo, fapa camo a Rode Glofco. a Rede 
BandeiFanies ou a CofitrcN que i&m se uiiFizadP do 
ElpM ll P*ua em suas n&cessrdades empfesafisis ou 
con>o os ^uncionanos do Samerpndus oars suas 
□ iiviaa-^trs prorESSiOnais e de lazer 
f ar.R com g 'antes Duircg, que aorpvehando as 

vanja^ens. de um micro 
que saoe ser macro na r— 

nore tens \ . 

Escohha o £ippa II Plus ■ 
a macro Escclha. 



I5E 

r pfas 



O micro macro 
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Prologica no Cirandao 



Oepois de Izngar q pacoie qua poifibilita Oi utuBriot de»u* micro- 
computedore* ecetMrerm o mienne Videotex!* da Telstp, a Proi6gica 
antra agora tamfrdm no Ci rand Jo, da E mbratei Para tanto a empresa 
<Je»nvQlveu * protocol* TflTTY, qua permite * acBEio a divers-os ser- 

yito# da inf or mac Jo. 

A* ea ractc r 1st (Cje dd prCHocalo de comunica^ao ProlOgica tao: at- 
ifacrona, carOttar a caractsr, pandade par. fmpar a sem pandade. 7 qu 
8 Dei a BUS, canal SBCundBriq du principal, cddigo ASCII e as saguintes 
vGlOcidadeE de comunicacao : 5Q a 1 y 2DG bps para recaps Jo /uanifYii-HM 
on 1200/76 bps para r ecepgeo/t rensmi SMO r atendendo. porwnio, -is e* 
pacif i cacoe l de Embratel, pera o CirandSd, 

Para acesaar o Ci rand So * usuBrio de mkrooomputident Prol6gica 
deya « intcrever ne Embratel e adqumrO Kit para □ s-iEtama. 0 Kit r dis- 
ponfvel errt quAlquer ravGhderfor da ProlOg ica, e-composto par modem, 
Cabot de ligaceo r placa R£ 2320 e di Equate. G protocolo da cornu nica- 
cJo t cedido -greiuitamefiie pel a Ptolbgica. 



A Uteratura de jogos 




Pqfy JOB WP e Poly JOf WP r tfa 
Pplymax 



Processadores 
de Texto 

Visando aperf&icoar sua I in ha 
de processed OraS de lex to, a Poly- 
max pnOduz equipamentos especi- 
ficoS para esse trabalho: o Paly 
105 WP e a 301 VYP, que diferem 
pela maior capacidade do segun- 
do. 

Nessei sislemas, 05 comandos 
a utD mjtiops , incM'dosno prPprip 
teclado, nJo ex i gem wpecializa- 
c&o do usuBrio e feciiitam a pro^ 
dupffo de tddo e qualquo-r tip* de 
texto. Eles aceiiam vBrios tipo* de 
impress* ras r desds as mairieiais 
ate as equipadas com sisrema de 
margarines intareambiJvais. 

A Polymax desenvolveu, arm 
da, pm software para ecompanhar 
os procKEadores, o Polysoriba. 0 
pro^rama 4 Internment* em Pop 
tugue* e apre»niado de forma 
eonveraacionai e intarativa. 0 Po- 
lyse riba possttrfHti a for mac Jd da 
oolynas e quadros complex*^ in- 
clusive com c^icuios maiemdtitos. 

0 Poly 105 e 301 WP podam 
ser tamb^m o infclo de uma rede 
local que estB sendo lantada: a 
Poly 920 NET. Esw 4 urns rede 
ahena qoe pode far a ixtens£b de 
ate 1 3 ouilbmetros, incorporando 
axrf 25S ter mine is ou micros. A 
Poly 920 NET tem uma welPCida- 
da da trahsmitsJd de 1 Mbpor se- 
pundo, al^rn de poSsibi liter a oo- 
muni cacao si mu I tinea entre os 
terminals ligados. 



Jogos da Desk 

Ovrti e Sops ds LBirss sag d pi? 
nowos jogos criados pela Desk En- 
genhari a e Si stemai . d e Po ni a G ros- 
sa H para equipamentos com Ibgica 
Sinclair. O primairo dates B dedi- 
cado aos jo^adores qua se desia- 
cim pel a agilidade. Tras fasarsten- 
tem imped ir que tres naves des- 
Cem para ameapar a Terra. A cada 
500 pantos obtidos o jog^dor ga- 
nha mats uma base. Especial para 
quern e*i& comecando. 

Sqp# d* Lefrut 4 voliedo mai* 
para -jq u ei as qua gosiam de jogos 
que utilizam O radoefnio a a me- 
mbrie. Num painei sao dispoitai 
as leiras do alfabeto. algumec das 
quais depo»s sJb embaratbadas. 
Com ni'wis de dificuldade da 1 a 
9, Q jogador tem de recolocar a« 
letras nos lugaras originalmenre 
ocupados. Aljm detses do is jogos, 
a QesK, cujo eicritbrio rice na Rua 
Barduino Taqu« r 480, con^unto 
83, tern tsmWm Tiro ao ^efo/Sa- 
rai/ra /Vans/, Flip Ffpp/BiQrmmo 
0 Ppjite&snht, 



Micros ist 
implanta 
sistemas em 
Belo Horizonte 



A MiCrosist B uma software 
bouse da Belo Horizonte (Rub Te- 
fienta Brito Melo, 342, sale 1303, 
tel. : 336-1 403] qua yem seespecia^ 
Nzendo na impiamacao de tine- 
mas uiilizando micros e minicom- 
putadores. Atuaimante tem parte 
da sua atividade volrada A maximi- 
ZB0ao do control ede Inf ormaeoes 
Sociais e financeiras de dubes e 
afisociagoes. 

Poi b Microiist quern implan- 
tou osisteme no Cruzeiro Espone 
CKube, cujoeqyipamemodreioon- 
siuei por em issJo de car nit, can- 
t role de mansalidadei. baixas de 
pagamantos, posicJb da carteira 
de cobrenca. linagem da assoc la- 
do? por ordem elfeb^tica r cada«ro 
de dependentes elisia de anivarsa- 
riant« do met, antre dutrai coisas. 



Ot primeiras livroE deiogasque 
Surgiram no marcado taram as da 
linha Sinclair. Is to porqua Ot mi- 
cros dessa I inha sfo os msis bara- 
toi e, coniaquenrerniente, oi mail 
vend idoi. Hoie r porim, jiexinam 
jogos e livrox para todos ot t ipos 
de microi. 

Entretanto, o nurnsra de livnoi 
bratileiros Sobre programs cao da 
jOgOS ainda B pequeno ie compe- 
redo a quantidade dot Iraduzidoi 
ou am inglfri. Mas acredite-se qua 
o mgreado de livros de InlormJ- 
tica, em ge^aL 4 cratcente e que 
o metmo deverB acontwear em>e- 
joe livrot da jogos. 

Na verdade, asta no-. 1 a lirara- 
tura de jggoi ji apreienia diferen- 
tes flEfiiot. ou seja, os. I i vro s po- 
dam iar tubdivi didos da jeordo 
com a maneira pale quel 0 aitunfo 
# i rat ado. A grande meioria deles 
se propde, limpletmanta, a littar 
programas, o que limita o uiuJrip 
a Odpier tom desenvoluar sua cria- 
tividade. Apesar disso, algum dev- 
se? programat iso bettante inteN- 
gentai e detpertem grande inta- 
rgste no leitor. 

Dutrot eniinam reelmante 
Cflmo e laborer jogos, a presents n- 
do iruquet e comentBriot de gran- 
de utilidade para o eprandizado 
do utudrlp, Dm bom exemplo dax- 
S4 tipo de literature B a Curto de 
Jogos am Basic TK, da FBbio flan- 
del ucci. Esta tftulo, publicado pa- 
le adilpra Moderns, moitre o fun- 



cionamemo dot jogos malt Eimpras 
aot mail COm pi axes, trat anda da 
etfuntdl ca mo place res, moyiman- 
tdfi a bfveisda diliculdade. sempre 
acorn panhedDS de ym programe 
comp ex am pi o. TK Pivsrtindo. de 
Victor Mirsh-ewe, edi t ado pele No- 
bel, tembim pode set enquadradd 
nes?e etiilo. 6 autor didicet OJii- 
cet, do cipo, com* car nagar e guar- 
ds r um programa a faz comenti- 
rios SObr# Blet, aiem de dad i car a 
introduce* dp livro a expJicacoet 
ipbrao ted ado do TK-B5 

Como a maioria dot jogos B 
B-Ecrita am lingyagsm da miquins, 
nao se pode descertar e posiibili- 
dada doi hyroi JO Ore eisedSSunto 
serem uma pane importante da li- 
xeraiura de jogos. E les, cartamen- 
te. sao de grande valie para o usu J- 
rio que quer eniend&r, da manaira 
mais complete, o funcionamantg 
desjai programas. Usando Lingys- 
gamda IVUquine, de MirioScheef - 
far, e Linguagem de MJquina para 
P TK, de Fidvio Rnilini, ambos 
da Edi tora Moderns , saa I ivras ca- 
pazet de auxiliar o leitor neiiesen- 
ildo. 

Alim do i liyrci ex litanies, nao 
se pode esquacer a importJncia das 
publicecbas mensaiique, sem som- 
bre de duvidal, vim apreser landq, 
frequentemenia, bons trabaihps 
lobre 0 atsunto e contribuindo 
para a popularizaclo da Infqrmi- 
tica no pall. 



Pape] Autocopiativo 

A Industrie da Papal Piracicaba, d* grupo SimJo, 4 uma dai 
ma lores fomacedaras de pepel para a Industrie de fprmulirios 
comi'nuos. No final da 01 o grupo Simfo firmou um contrgto de 
trariEfar4ncia de tscnologie C*m a Nathuft, dos Eitados UnlddE- 
AtravBs daste contrato e Industrie de Papal Piracicaba pauou e 
receber * know-how pare a produglo de paptis aipeciais, antre 
0-1 quais * papal autgeopiafivo Extra Copy, qua agora eitJ HfldD 
lancedo no mercado nacionai- N* processamenta da dados o Ex- 
tra Copy permita aumenter a efldfincia da imprasiora coma eli- 
mirta^Jo d* papal carbono, Para imprBsSora da CHracterei o nO- 
mero da cdpias racomendadai B de 6 a 0 vias r e para impres*or« 
de I inha o fabricante recomenda qua sejam f aitai antre 6 e 6 vies 
pdr vez. 
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Protocolo sobre Informatica 
na Educa^ao 



Videotexto da Itautec 
na Telesp 



O SecretBrio-Geral do MEC — 
Slrgio Pasquali, o SecretBrio Espe- 
cial de InformJtica — Edison Dytz, 
o presidente do CNPq - Lynaldo 
Cavalcanti de Albuquerque e o 
presidente da FINEP - Jos6 Wal- 
ter Melo assinaram, em Brasilia, 
um protocolo de i mangoes com o 
objetivo de desenvolver uma infra- 
estrutura de InformBtica nas insti- 
tuigoes de ensino superior. 

O protocolo visa promover o 
equillbrio entre o processo de In- 
formBtica, que vem se ampliando 
cada vez mais, e as instituigdes de 
ensino superior, que, pela carBn- 
cia de recursos, nao conseguem 
acompanhar o desenvolvimento 
desse processo. Uma outre preo- 
cupagao assinalada no protocolo 4 



com relagao a total predominan- 
ce de equipementos estrangeiros 
no pals, o que dificulta a forma- 
gao de profissionais com conheci- 
mento sobre os equipamentos de 
fabricagao nacionai. 

Em virtude de freqiiente falta 
de recursos e agilidade dos atuais 
programas de InformBtica, o pro- 
tocolo preve a constituigaode uma 
comissao coordenadora, integra- 
da por representantes do MEC, 
SEI, CNPq, FINEP e das institui- 
gdes privadas e publicas, que irB 
apresentar normas de operaciona- 
lizagao do protocolo, com duragao 
de dois anos, mas com a possibili- 
dade de ser prorrogado de acordo 
com a vontade de seus i ntegrantes. 




Jornalista de MS vence 
Premio Imprensa/84 



Em cerimdnia realizada na sede do Brasilinvest, a jornalista Grape 
Santos, de MICRO SISTEMAS, recede u das maos de Ayrton Fagundes, 
Assessor de Imprensa da Secretaria Especial de Informatica , o Primio 
Imprensa/84 AN DEI -NOVA DA TA. A escolha da comissao julgadora foi 
referendada tambdm pelo voto direto dos associados da AN DEI. 

A mattiria vencedora, resu/tado de um amplo traba/ho de pesquisa, 
trata do processamento de texto e sues aplicapdes, trazendo ainda um 
panorama completo dos equipamentos dispon/veis no mercado. 




Terminal videotexto 1-1060 



A Itautec assinou 
contrato com a Telesp 
para o fornecimento 
de quinhentos termi- 
nals de videotexto I- 
1060, com entrega 
prevista para os pri- 
meiros mesas desse 
ano. Os terminals I- 
1060 serao alugados 
aos usuBrios do siste- 
ma Videotexto atravBs 
do piano de expansao 
do Centro Publico da 
Telexp. O piano prevB 
a instalagao de 12 a 15 
mil terminals ainda 
em 85. O terminal I- 
1060 pode ser utiliza- 
do tanto no escritdrio 
quanto em casa e sua 
instalagao 4 simples, 
bastando ligB-lo a qual- 
quer modelo de televisao, preto e 
branco ou colorida, ou mesmo em 
monitor de video caso o usuBrio 
possua um micro. O terminal da 
Itautec 4 composto por um adap- 
tador de videotexto e um teclado 
alfanum4rico, com 61 teclas dis- 
postas como em uma m4quina de 
escrever. O teclado pode comuni- 
car-se com o adaptador por cabo 
ou controle remoto, permitindo 



sua op>eragao de qualquer ponto 
de um mesmo ambiente. No futu- 
ro a Itautec informa que o termi- 
nal videotexto poderB ser utiliza- 
do tamb4m com uma impressora, 
atravBs de interface, permitindo 
ao usuBrio imprimir todo o mate- 
rial que aparece na tela. O 1-1060 
pode ainda atuar como secretBria 
eletrdnica. 



Valtech transfere 
fabrica para o Rio 

A Valtech Com4rcio e Industria Ltda. transferiu sua fBbrica de Sao 
Bernardo do Campo, em Sao Paulo, para o Rio de Janeiro. A empresa 
jB iniciou suas atividades de produgao e comercializagao e continue ofe- 
recendo places de circuitos impressos - profissionais (furos metalizados), 
semi-profissionais (estanhos), convencionais, prot6tipos e fabricagao em 
s4rie, assim como assist4ncia tBcnica em projetos e anBlises 

O novo enderego da Valtech 4: Rua Felizardo Fortes, n9 563 - Ra- 
mos. 




STRINGS 




• William Koelsch 4 o novo gerente da filial Rio de Janeiro da Cincom 
Systems. Ele passa a responder por todas as atividades da filial que se re- 
lacionam com vendas, suporte t4cnico e administragao financeira. • A 
Edisa foi selecionada para fornecerao MinistBrio do Ex4rcito microcom- 
putadores multiusuarios de sua linha ED-200, por um perlodo de tres 
anos. • A Verbatim langou, na ultima Feira Internacional de !nform4ti- 
ca, os disquetes Hard Sectored, para alguns equipamentos da Polymax. 

• A Burroughs estB langando um lengo de papal do tipo "Lint Free", 
que pode ser usado para a limpeza de cabegas magn4ticas, assim como 
de todos os componentes que entram em contato com a fits magn4tica. 

• A Microdigital est4 fabricando o Gravador de Eprom para a linha TK. 
A interface "Gravador Eprom" 4 utilizada para memdrias semiconduto- 
ras do tipo Eprom capazes de armazenar 2 Kb de informagao sob a 
forma bin4ria. • O software PACFIN — sistema estruturado para a Brea 
financeira — , da empresa INFOCO, foi o primeiro colocado no concurso 
"Melhor Software do Ano", criado e promovido pela AN DEI. O premio 
para o primeiro colocado foi um microcomputador 1-7000 Jr., da Itau- 



tec, patrocinedora do evento. • AtravBs de um trabalho desenvolvido 
pelo bailarino Ricardo Viviani, do elenco da pega Ohl CalcutBIpela pri- 
meira vez no Brasil um espetBculo une a danga ao computador. Ricardo 
utilize as imagens grBficas produzidas por monitores de vfdeo para coor- 
denar os seus passos no palco. O roteiro computadorizado inclui seis so- 
los e um dueto. • A Dismac, sexta maior fabricante de micros nacionais 
(segundo Melhores e Maiores de 84 — Revista Exame), apresentou o se- 
gundo maior fndice de capitalizagao do setor de InformBtica. De acordo 
com o gerente de marketing da empresa, Jos4 Lacerda, isso se deve a to- 
tal reformulagao da estratBgia mercadolbgica, buscando melhorar a es- 
trutura interna com o atendimento mais direto ao usuBrio. • O jornal 
Dois Pontos, da cidade de Natal, no Rio Grande do Norte, estB publi- 
cando uma coluna dirigida B Brea de InformBtica. Esta coluna foi uma 
iniciativa do jornalista MBrio Lira Pedrosa, seu atual responsBvel, que 
tem como objetivo transmitir ao publico, de maneira simples e agradB- 
vel, informagoes sobre o assunto. 
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Brasil Trade Center 
oferece novos servi^os 

Com apenas um ano e doit me- tor de exportagao visa apoiar o 
set de atuagao na comercial izagao pequeno e mddio exportador. de 
e assessoria de negdciot na drea de qualquer drea,atravds da informa- 
Informdtica, o grupo Bratil Trade gSo. Esse processo se dd pela in»- 
Center jd inaugurou tua primeira talagao de um sistema de compu- 
industria. A fdbrica, que fica em tador na empresa, o que permite 
Cavalcante, no Rio, estd produzin- ao produtor ter acesso ds informa- 
do, entre outros, mdveis para mi- goes necessaries ao desenvolvi- 
crot (mesas, cadeiras e males) e mento de sua industria. 
places para a linha Apple. Segun- Aldm disso, o BTC continue 
do Manoel Assungao, presidente expandindo seus negdcios na drea 
do grupo, a fabricagao des placas comercial. Atualmente, a empresa 
se deve d grande procure existente tern cinco pontos de venda, mas 
no mercado e d falta de condigdet pretende chegar ao ano de 86 com 
das empresas em surprir esta de- nada menos que cem pontos de 
manda. venda. Para isso, o grupo estd pro- 

Outra novidade no BTC sao os curando represent antes em cida- 
sagmentos de importagao e expor- des de todo o pafs. A sede do Bra- 
tagao. O primeiro tern o objetivo si I Trade Center fica na Av. Epitd- 
de assessorar o pequeno e mddio do Pessoa nP 280, Ipanema, tel.: 
produtor na compra de compo- (021) 259-1 299, Rio de Janeiro - 
nentes de alta tecnologia. Jd o se- RJ. 



Emulando e Transferindo Dados 

A placa 7101 do novo produto lanpado pela Link. Trata-se 
de um emulador de terminais 3278 e 3279 que permite a cornu* 
nicapao e transferdncia de arquivos entre microcomputadores 
compatfveis com IBM PC, como o modelo 727, da prdpria Link, 
e computadores de grande porte da IBM. A comunicapao 6 feita 
via uma controladora de terminais IBM 3274/3276, atravds de 
um cabo coaxial. 

Aldm da placa de comunicapao, o produto 6 composto tam- 
bdm pelo software Terminal de Trabalho Executivo, que permite 
a transferdncia de arquivos entre o micro e o sistema central, em 
ambientes CMS, DSO e CICs. O Link 7101 jd esta sendo comer- 
cializado e seu prepo de mercado 6 de 300 ORTN. A manutenpao 
integral do produto por um ano fica por conta da Link e esta sa- 
rd efetuada nas dependencies do prdprio cliente. 



Advancing, Informatica no Sul 

Criada em 1979, em um espapo de 80 metros quadrados em Porto 
Alegre, hoje a Advancing forma um grupo que atua em diversos setores 
da Informdtica, com destaque na drea de treinamento. A empresa ofe- 
rece cerca de 38 cursos, que vao da formagao ao aprimoramento de pro- 
fissionais em processamento de dados. 

Em 1981, a Advancing lanpou uma loja especializada em computado- 
res no sul do Pafs, estabelecimento reinaugurado em 1983 na forma da 
mais completa boutique do Estado, a Advancing Computer Shop, ocu- 
pando o mesmo prddio que a Advancing Sistemas e Manutenpao, na Sar* 
mento Leite, 248. O complexo Advancing estd distribufdo em quatro 
sedes, tres das quais sao prdprias. 

O Comercio se 



Ouro, novo modelo 
de monitor da CMA 

A CMA Industria Eletrdnica lanpou recentemente seu moni- 
tor Ouro, cuja principal caracterfstica sao dois tamanhos de qua- 
dro, reduzido e ampliado. Equipamentode aplicagao profissional, 
reproduz com alta resolugao qualquer tipo de grdfico, desenho 
ou texto, em 40 ou 80 colunas. £ compatfvel com o derivador de 
vfdeo DM6, da CMA, o que permite a ligagao de atd seis monito- 
res em um unico micro. 

O monitor Ouro 6 do tipo portdtil, com alpa para transpose, 
tern tela de 31cm (12") em fdsforo verde (opcionalmente lumi- 
nescence branca) e controles de brilho, contraste e chave liga/ 
desliga no painel frontal. No painel traseiro hd outros controles: 
sincronlsmo horizontal e vertical, linearidade vertical, altura, fo- 
co e tamanhos do quadro. Pesa 10 kg. Outras informapoes po- 
dem ser obtidas pelo telefone (01 1 ) 548-2249. 



Simitex Escolar 

Simitex Escolar 6 um aplicati- datas ou professores. O Simitex 
vo desenvolvido pela empresa ce- Escolar tern caracterfsticas que 
rioca Simicron para micros de uto impossibilitam o uso de sua biblio* 
profissional em estabelecimentos teca por pessoas nao autorizadas, 
de ensino. Ele permite substituir, incluindo um eficaz processo de 

de forma segura e eficiente, copia- seguranpa de arquivos e cdpias de 

doras, mimedgrafos e as mdquinas cadastros. 

de escrever convencionais. Embo- TamWm volt ado para a dree 
ra de concepgao sof isticada, 6 de de ensino, a Simicron tern o siste- 
fdcil operagao, dispensando trei- ma Magister, que permite concern 
namento ou manuais. Elearmaze- trar rotinas financeiras e aceddml- 
na, organize, edita e emite textos cas. O grupo acaddmico possibili- 
ty qualquer natureza, como pro- ta registro de cursos, matdrias, pro- 
ves, testes, drculares, apostilas etc. fessores, alunos, notas etc. Na dree 

A consulta a textos armazena- finance! ra efetua cadastramento 
dos pode ser feita por uma sdrie de pagamentos, capas de carnds, 
de itens definidos pela administra- levantamento de valores recebidos 
pao do estabelecimento, por exem- etc. O telefone da Simicron 6402U 
plo, por cursos, matdrias, assuntos, 205-6597. 

Exitus Informatica 

A Exitus Informdtica d uma loja de Juiz de Fora especializada em 
microcomputadores. A maioria dos micros nacionais podem ser encon- 
trados na Exitus que possui tambdm grande variedade de perifdricos (im- 
pressoras, monitores de vfdeo, modems, teclados, disco Winchester, 
entre outros), e todos os suprimentos necessdrios a utilizapao de micro- 
computadores. Aldm de prestar assistdncia tdcnica para os produtos que 
comercializa, a Exitus, atravds de seu departamento de software desen- 
volve programas sob encomenda para qualquer micro. Ld tambdm sao 
oferecidos curso de Basic, Cobol, Assembly, Fortran, Pascal e outros. A 
Exitus possui financiamento prdprio para pagamentos em atd cinco ve- 
zes, e a loja ainda compra, troca e vende micros usados. O enderepo da 
Exitus 6 Rua Santo Antonio, 689, no centro de Juiz de Fora. Tels.: 
(032) 213-2494 e 212-0564. 

Automatiza 



Comemorando seu primeiro ano de exis- 
tence a Associapao Brasileira de Automagao 
Comercial — ABAC, inaugurou sua nova sede 
em Sao Paulo. Na ocasiao a diretoriada ABAC 
defendeu a criapao de uma rede unica de Ter- 
minais de Transferdncia de F undos (TTF), 
uma decisao contrdria d assumida pelos bancos 
em recente Congresso realizado em Salvador. 
Os bancos nao chegaram a um acordo quanto 
d unificapao dos TTFs e serdo mantidas por- 
tanto as quatro redes hoje existentes: Brades- 
co, Tecnologia Bancdria (Banco 24 Horas); 
Itau e Credicard; e Banco do Brasil. A necessi- 
dade de terminais distintos para cada um dos 
bancos, sagundo os comerciantes, inviabiliza a 
utilizapao de TTF uma vez que cada loja terd 



que possuir no mfnimo quatro terminais, e no 
caso de magazines este numero deveria ser 
multiplicddo pelo numero de departamentos 
onde fossem instalados os terminais. Aldm dis- 
so os comerciantes apontam para o fato de 
que os custos decorrentes da instalapao de ter- 
minais, jd que algumas instituipdes bancdrias 
cobram pela instalapao aldm de uma taxa de 
aluguel, e outras por cada transapao realizada, 
aldm da ligapao telefdnica quando o terminal 
d acionado para consultar o banco de dados 
central sobre o saldo do cliente, teriam que 
ser repassados para o consumidor, o que ndo 
interessa ao comdrcio. 

Diante do impasse criado a ABAC resolveu 
former grupos de trabalho em Porto Alegre, 



Recife, Rio de Janeiro e S§o Paulo para estu- 
dar uma solugao para o caso. Uma das alterna- 
tives que estd sendo apontada pelos comercian- 
tes d a criapao de uma rede especffica para o 
comdrcio. 

Quanto d padronizepao do cddigo de bar- 
ras dentro do processo de automapao comer- 
cial, o cddigo a ser utilizado no Brasil jd foi 
definido e serd o EAN, usado em vdrios pafses 
da Europe. A impressao dos cddigos nas em- 
balagens dos produtos deverd ter infcio no ter- 
ceiro trimestre deste ano e a leitura 6tica com 
utilizapao de caneta tipo light pen estd previs- 
ta para o segundo semestre de 86. 
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Ele e o profis- 
sional que todo em 
presano gostaria 



de ter no escritorio 
Ouemcasa.Novo 
computador Craft 
II Plus. E 100% 
compatlvel com a 

1 1 A 1 



linha Apple. 

Seu teclado tern 
caracteres em 
portugues, siste- 



ma auto-teste 
e 42 fungoes pre- 
programadas, 
alem de 9 funpoes 
prograniaveis . 

Venha conhecer 
este profissional 



NOVO COMPUTADOR CRAFT II PLUS 



na Clappy.Voce vai ciso dizer que o 
dialogar com uma prego Clappy e se- 
equipe tecnica que guramenfe o me- 
realmente entende nor do mercado. 



seu problema 
e aponta sempre a 
memor solupao. 

Vai encontrar 
tambem a mais 
completa linha de 
microcomputado- 
res, perifencos, su- 
primentos, softwa- 
res. Enemepre- 



Alem disso, a 
Clappy oferece 
cursos de progra- 
ma^ao, implanta- 
gao e instalapao de 
sistemas e assis- 
tencia tecnica 



propria. 

Venha a nossa 
loja ou solicite 



a visita de um 
representante. 



Clappy 

0 lado gente da maquina. 

Centro: Av. Rio Branco, 12 - loja e 
sobreloja-Tel.: (021) 253-3395. 

Copacabana: Rua Pompeu Loureiro,99 
Tef: (021)236-7175-257-4398. 

Aberta diariamente das 9 as 19 horas 
e aos sabados das 9 as 14 horas. 
Assistencia Tecnica - 284-3349. 
Entregamos em todo Brasil pelo 
reembolsoVarig. 







Hoje, acessar a informagao precisa e mante-la organizada 
sao preocupa^oes dos usuarios de micros. Para estes, 

MS selecionou diversos temas sobre BDs 

Bancos de Dados - a 
utilizacao crescente 

a 

em micros 



A s inumeras incites que vi- 
venciamos a cada dia em 
nossos processos de produ- 
q&o ja deixaram claro que 
caminhamos para uma situa^o em que 
deter a informa^o significa, nSo raro, 
deter eficiencia e at£ mesmo poder. Ho- 
je, a necessidade de se ter as informa- 
95es organizadas de forma a permitir um 
acesso rdpido e racional faz-se presente 
nSo s6 no estdgio de estudos que antece- 
de os processos de tomada de grandes 
decisbes como tambem, de maneira mais 
ampla, em todas as tarefas complemen- 
tares de suporte, operacionaliza9ffo e 
busca de insumos que cercam nosso tra- 
balho. 

Dentro deste contexto, ser um usui- 
rio de computadores e servir-se, de um 
modo geral, dos servi9os de armaze- 
namento eletronico das informa9bes fi- 
cou no minimo aconseMvel. Assumi- 
ram, ent£o, um significado import ante 
os sistemas que permitem uma comple- 
ta manipula9fc>, busca e recupera^o 
de dados. Os softwares Gerenciadores 
de Bancos de Dados, outrora um privi- 
lege dos que tinham acesso a equipa- 
mentos de grande porte, sSo hoje po- 
derosos aliados e mesmo puxadores de 
vendas de microcomputadores. Tal su- 
cesso e compreensivel nffo somente k 
luz da import an cia que vem assumindo 
o “estar bem informado” como tambdm 

em fun9dfo de sua ampla possibilidade 
de utiliza9fc, visto haver, em todos os 
segmentos da atividade humana, aplica- 
9bes possfveis a esse tipo de sistema. 



SOnSTICA^AO CRESCENTE 

£ impressionante como as deman das 
se multiplicam e as necessidades apon- 
tarn para sistemas cada vez mais so fis- 
tic ados, que buscam, alem da comple- 
xidade e abrangencia de fun9$es, uma 
simplicidade de uso que fa9a dessas Ba- 
ses de Dados uma extensSo quase natu- 
ral da capacidade humana. Neste ponto 
fica claro que todos os resultados e con- 
quistas dessas pesquisas s£o, na realida- 
de, meras fases de uma busca maior, ru- 
in o k Inteligencia Artificial. 

Na tentativa de dotar esses sistemas 
de sofistica9?o e simplicidade, deixa- 
mos para a Idade da Pedra o tempo em 
que o micro nada mais oferecia do que 
uma “ficha eletrdnica”, guardando to- 
dos os inconvenientes e limita90es do 
arjnazenamento manual de dados e mos- 
trando um unico aspecto de sedu^o: 
visualizar as informa90es no video, ao 
inv£s do papel, mesmo que isto envol- 
vesse at£, em alguns casos, mais traba- 
lho. 

Ao longo dos ultimos anos, diversos 
sistemas Gerenciadores de Bancos de 
Dados foram lan9ados no mercado, com 
fun9bes cada vez mais completas e ex- 
plora9fo crescente dos recursos dos mi- 
crocomputadores e da evolu9£o do hard- 
ware, principalmente nos aspectos refe- 
rentes k capacidade de armazenamento 
ffsico de informa9(5es. 

E apesar de somente no ultimo ano 
esses sistemas terem se tornado efeti- 
vamente discutidos e utilizados no Bra- 
sil — e aqui os usuarios ainda tern muito 
o que descobrir sobre o potencial deles 



— , os inquietos norte-americanos j k lan- 
9am -se em discussfles e pesquisas bas- 
tante aceleradas sobre a forma de in- 
tegrar sistemas com capacidade de ma- 
nipula9^o em Bases de Dados a outras 
fun9bes. Dessas discussbes resultam pro- 
dutos que, inclusive, representam uma 
gera95o posterior k dos famosos soft- 
wares integrados (tipo Lotus 1 - 2 - 3 ), que 
incluem Bancos de Dados como aplica- 
9?o principal ou secundaria, mas que 
n2b podem ser considerados SGBDs ple- 
nos. Antes, o software integrado tradi- 
cional apresenta apenas algumas fun- 
9bes de manipula95o de dados (sort, 
por exemplo), geralmente servindo de 
apoio a uma segunda aplica^o princi- 
pal, que 6 usualmente a planilha de 
c&lculo. 

De concep9ffo mais recente, exist em 
novos produtos como os chamados Text 
Databases , que integram ao Gerenciador 
de Bancos de Dados fun9bes de ed^Sb 
antes somente possiveis via uso de edi- 
tores de texto. Isto por que, a partir de 
novas necessidades de uso, constatou-se 
que os editores de texto ndo apresen- 
tam mecanismos eficientes de manipu- 
late de dados, enquanto que os SGBDs 
pecam por nSo apresentarem fadlida- 
des de edi9&). J A este produto hfbrido 
reuniria conduces para localizar rapida- 
mente fragmentos de texto, editddos e 
inoorpord-los a documentos maiores, 
previamente instalados no sistema. 

ESCLARECIMENTOS 



Mas enquanto ainda estamos um pou- 
co distantes dessas discussbes de van- 



guarda, 6 interessante procurar esclare- 
cer aos usuirios, principalmente aque- 
les de maquinas pessoais, sobre o que 
vem a ser e quais beneficios o uso de 
Sistemas Gerenciadores de Bancos de 
Dados poderd trazer no exercicio de 
suas atividades. 

E come9amos dai: quase todas as 
atividades necessitam de organiza^o de 
dados. Entendemos, ent£o, uma base de 
dados como um ou mais arquivos, com- 
postos de registros que, em determina- 
dos campos defmidos pelo usudrio da 
base, abrigam dados relacionados entre 
si. Assim, percebe-se que uma base de 
dados nada mais e do que uma cole9&o 
de arquivos, nos quais podem estar con- 
centrados e organizados literalmente 
quaisquer dados que o usuario se inte- 
resse em armazenar. Pois bem, os 
SGBDs s 3 b os programas que se en- 
carregam de gerenciar e garantir a ra- 
cionalizato de armazenamento desta 
base (ou banco) de informa9bes. Eles 
permitem que o prbprio operador defi- 
na seus arquivos e “desenhe” seus re- 
gistros, especificando assim a forma de 
entrada e recupera9So dos dados. Apbs 
ter completado sua base de dados, o 
usuirio pode, gra9as k ag&o dos SGBDs, 
adicionar, alterar ou dele tar dados; rea- 
lizar pesquisas no arquivo e gerar rela- 
tbrios, estruturados de acordo com suas 
prioridades e criterios de seleto. 

Ocorre, contudo, que os programas 
de controle e gerenciamento de bases 
de dados abrangem um amplo leque de 
op9bes, variando em fun^o das mdqui- 
nas em que rod am, dos recursos ofere- 
cidos e dos pre90S, entre outros fatores. 
Toda esta possibilidade acaba criando 
confusffo quando o interessado nSo 
tern claras certas defini9bes e, princi- 
palmente, o objetivo de utiliza9ffo de 
sua base de informa9bes. 

Novamente o primeiro passo 6 defi- 
nir qual a utiliza9Jo. Isto porque, das 
mais simples ks mais sofisticadas, exis- 
tem diversas formas e produtos usados 
para armazenar e gerenciar a informa9ab 
que desejamos ter sempre k m 5 o e orga- 
nizada. 0 uso profissional, salvo em ra- 
ras exce9bes, n 5 o pode prescindir de 
um SGBD completo, que lhe permita 
flexibilidade de manipula^o e seguran- 
9a de dados. J k no nivel das aplica9bes 
domlsticas geralmente s^o aconselhados 
os programas mais simples, ideais para 
os arquivos caseiros de livros, discos, te- 
lefones ou similares. Neste caso, a ex- 
ceqio fica por conta dos colecionadores 
ou daqueles que levam seus hobbies a 
extremos e que, eventualmente, poderSb 
precisar de sistemas mais poderosos. 



GATO POR LEBRE 

Na hora da compra, portanto, 6 ne- 
cessdrio estar atento. Isto porque o nu- 
mero de programas intitulando-se Ban- 
cos de Dados no mercado 6 grande. Se- 
gundo nosso assessor Orson Galv 3 b, al- 
guns deles, inclusive, “nSo chegam nem 
a tamborete, e sa:o, no mdximo, sacos 
de dados”. Para GalvSb, uma utiliza9So 
efetiva de banco de dados precisard 
apresentar: 

• um software que defina a estrutura 
do banco de dados e possibilite a ali- 
menta93:o e manuten^o do mesmo; 

• um software que permita a manipu- 
late tanto dos dados no banco quanto 
da estrutura previamente criada; 

• um software que permita acessar e 
utilizar os dados de forma a gerar rela- 
tbrios, fazer pesquisas seletivas e todo 
produto final desejado; 

• um software que facilite a interliga- 
92:0 com outros sistemas fora do banco 
de dados, atrav^s da gera^o de arqui- 
vos de dados em formato compatfvel. 

Segundo ele, um verdadeiro sistema 
de banco de dados engloba, por si s6, 
todas estas tarefas e possibilidades, con- 
tendo ainda uma linguagem de progra- 
ma$fo. 

Nem todos os produtos disponfveis, 
contudo, apresentam tais caracteristicas. 
Para come9ar dos mais simples, existem 
certos programas que s£o comumente 
denominados de sistemas para gerencia- 
mento de arquivos, uma vez que foram 
desenvolvidos de forma a gerenciar lis- 
tas de informa90es, limitando-se a guar- 
dar registros (fichas), independentes en- 
tre si, na ordem em que sa:o introduzi- 
dos pelo operador. S&o tambem os pro- 
gramas mais baratos, feceis de usar e 
usualmente conduzidos atrav^s de me- 
nus, exigindo do usuirio pouca memori- 
za9ao de comandos e fun 96c s. 

Primeiramente, o usudrio "transmi- 
te” ao sistema como quer entrar os da- 
dos, desenhando na tela suas fichas, es- 
tabelecendo o nome e o tamanho dos 
campos e especificando os tipos de da- 
dos (nunWricos, alfanumericos ou 16 gi- 
cos) que devem ser entrados naquele lo- 
cal. A partir daf e uma vez entradas - e 
criticadas - as informa90es, o pro grama 
permite adicionar, alterar ou apagar da- 
dos; executar pesquisa a partir de cam- 
pos especfficos, ditos chaves; ordenar o 
arquivo (sort) como queira o usuario e 
gerar relatdrios. 

Uma limita^o desse tipo de progra- 
ma 6 que ele, geralmente, trabalha s6 
um arquivo por vez, nffo possibilitando 



■ Seu micro 
merece 
Assistencia 




Tecnica 
ASSIST. 

E voce merece a tranquilidade de contar 
com a mais eficiente equipe tecnica do Rio. 
treinada nas fabricas, e recomendada pela 
Petrobras. Furnas. Light e Bolsa de Valores. 

A ASSIST oferece tambem diversas opgoes 
para contratos anuais de assistencia tecni- 
ca, que garantem o maximo ao seu micro. 

Esemcustar mais por isto. 

Os micros Spectrum, Protogica. Digitus 
e muitos outros, alem de video-games e com- 
patibilizapao de perifericos. tern na ASSIST 
uma assistencia tecnica aprovada pelos pro- 
prios fabricantes. Alem disto, voce tern total 
assistencia aos micros importados: Sinclair, 
TRS-80. Apple e PC IBM. 

Se voce tern um micro e quer o maximo em 
assistencia tecnica, nao pense duas vezes: 
pense ASSIST. 

ASSIST : A maxima solupao para seu micro. 




Assessoria de Sistemas e Engenharia Ltda. 

Av Beira-Mar. 406 - Gr. 805 - Castelo 
Tel 262-5763 




INSTITUTO DE 
TECNOLOGIA ORT 
CENTRO DE INFORMATICA 



PROGRAMAS DE TREINAMENTO 



AREA DE MICROINFORMATICA 

• PARA USUARIOS 

(INTRODUQAO A PD. VISICALC/ 
SUPERCALC. WORDSTAR, 
dBASE II, BASIC) 

• PARA PROGRAMADORES E 
ANALISTAS 

(INTRODUQAO AO MICRO, CP/M, 
BASIC SOB CP/M, WORDSTAR E 
dBASE II) 

• NA EOUCAQAO 

(LOGO PARA EDUCADORES E 
PSICOLOGOSjLOGO PARA 
JOVENS) 



FORMAQAO PROFISSIONAL EM 
PROGRAMACAO E ANALISE DE 
SISTEMAS 



APERFEICOAMENTO 
PROFISSIONAL EM AMBIENTE IBM 

CPD-ORT: IBM 4341 
COM TERMINAIS 
LABORATORIO DE MICROS 



TREINAMENTO IN HOUSE 

EXCLUSIVO PARA EMPRESAS 



SOLICITE INFORMACOES E 
FOLHETOS EXPLICATIVOS 



RUA OONA MARIANA 213 BOTAFOGO 
RJ TEL 286 7842 
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BANCO DE DADOS... 



a combina^o de informa^Oes de dife- 
rentes arquivos. Atualmente, contudo, 
alguns desses program as permitem um 
trabalho simultaneo em mais de um ar- 
quivo, desde que estes possuam regis- 
tros formatados de maneira identica. 
Outro ponto fraco cx)mumente aponta- 
do pelos usuffrios sffo as limitadas fun- 
90es de cfflculo matemfftico (como to- 
tals ou %). 

Estas limita^es, inclusive, sffo o mais 
forte fator de diferencia^o entre os 
programas gerenciadores de arquivos e 
os gerenciadores de bancos de dados, 
embora mesmo dentro deste segundo 
grupo existam diversas opqQes que va- 
riam em graus de sofistica9ffo e pre90, 
que, no mercado norte-americano para 
essa faixa de sistemas, situa-se no inter- 
valo entre US J 300 e 600 . 

Os SGBDs, ao contrffrio dos progra- 
mas de arquivos, podem manipular mais 
de um arquivo por vez chegando ate, em 
alguns casos, a “criar” novos arquivos, 
efetuando ju^fies de segmentos dos 
arquivos j ff existentes. Permitem ainda 
fazer sorts por multiplos campos-chaves 
e definir campos que sao calculados a 
partir de outros, utilizando, via de re- 
gra, fiu^oes matematicas complexas. 

Os mais simples mantem a constru- 
9ffo atravffs de menus, enquanto que al- 
guns SGBDs mais sofisticados sffo guia- 
dos por um conjunto de comandos, que 
embora levem a uma maior flexibilidade 
de aplica90es exigem, em contrapartida, 
um maior esfor90 no aprendizado. Es- 
tes sistemas, concebidos para processar 
grandes volumes de dados, geralmente 
incluem linguagens prdprias para obje- 
tivos especfficos, que permitem progra- 
mar apUca^es personalizadas e sffo de 
ffftil entendimento para os que conhe- 
cem o idioma Ingles, dado a semelhan- 
9a com a linguagem natural. Para os que 
quiserem entender mais sobre esses sis- 
temas, aconselhamos a leitura do artigo 
“O dBase II, por etapas”, publicado em 
MS n 9 38 , pffgina 1 10 . O dBase II 6, 
sem dtivida, o mais bem-sucedido SGBD 
para micros do mercado. 

Aqueles, contudo, que pretenderem 
fazer uso dessas linguagens de desenvol- 
vimento oferecidas por certos SGBDs, 
cedo ou tarde terffo que se aprofundar 
numa outra questffo, que ao usuffrio do 
sistema 6 inteiramente transparente, pe- 
lo grau de detalhamento tffcnico. Esta 
questffo implica em estudar os m^todos 
usados pelos SGBDs para armazenar, 
organizar e relacionar a infom^Jo. 



Mercado Farto 



E ntre produtos genuinamente nacionais, traduces, semi-tradu^des ou simples c6pias 
piratas, o interessado em adquirir um software para gerenda de Bancos de Dados ou 
arquivos tera diversas op^des de solu$£o disponfveis. E, muito embora a oferta das lojas 
mais tradidonais geralmente seja limitada a dois ou tres dos tftulos mais famosos, e possi- 
vel, vasculhando bem o mercado, encontrar aqui a maior parte dos pacotes SGBDs que fa- 
zem sucesso no mercado norte-americano. 

Apple, CP/M e 16 bits sffo indiscutivelmente as linhas de equipamentos mais bem supri- 
das neste particular. O best-seller da area, dBase II, da software-house norte-americana 
Ashton-Tate, fundona sob MS-DOS ou CP/M para 16 ou 8 bits, e configura-se o mais com- 
plete SGBD surgido atff o momento, possuindo, entre outros recursos, linguagem prbpria 
para desenvolvimento de aplicativos personalizados. De nfvel de sofistica^ffo similar, existem 
algumas op90es mais problematicas para serem encontradas no Brasil, como o Knowledge 
Manager, da Micro Data Base Systems Inc., e o Condor 3, da Condor Computer Corp., am- 
bos rod an do em 16 bits e CP/M. 

Em terras brasileiras, contudo, o dBase II - distribuido pela empresa Dataldgica - ain- 
da e a op9ffo por excel£ncia para os que pretendem uma \1tiliza9ffo mais pesada. Seu prego 6 
bastante variavel, e apesar dos esfo^os da Ashton-Tate para coibir as c6pias piratas, ainda se 
encontram lojas que optam por oferecer o pacote “original’*. Detalhe : mesmo com o incon- 
venient e do manual nffo traduzido, o pre^o cobrado por esta copia foi, segundo nossa pes- 
quisa, mais elevado do que o da versffo traduzida pela Dataldgica. O dBase II tern seu pre90 
situado no intervalo entre 110 (Compushop) e 170.9 ORTN (Computique), e na empresa 
Servimec ele 6 comercializado em duas versdes: pessoal (140 ORTN) ou comerdal (190 
ORTN). 

Tambem bastante ofertado pelas lojas 6 o SPA Reporter, da Royal Software, um pacote 
simples para linha Apple, vendido a 14.5 ORTN. Segundo Luiz Roberto de Oliveira,, ana- 
lista da loja Computique, “o mais procurado e o dBase II, mas nem sempre ele e o mais 
vendido, por causa de seu pre^o elevado. O que ocoire no mercado de software para BDs e 
que a venda e muito pequena, o que ocasiona o desinteresse das software-houses em desen- 
volver produtos novos; o que existe e simples cdpia e tradu9ffo. Poucos sabem que o SPA- 
Reporter e tradu9ffo do famoso PFS americano. Isto ocorre por falta de uma legisia9ffo es- 
pecifica". 

Um outro software para BDs que goza de boa reputa9ffo e o Datastar, um produto para 
Apple e CP/M, desenvolvido pela MicroPro International e que era comercializado no Bra- 
sil pela empresa Approach Informdtica, de Sffo Paulo. Oportunamente, contudo, a tambe'm 
paulista Brasoft fechou com a norte-americana MicroPro a representa9ffo exclusiva de seu 
software no pal’s, inclusive o poderoso Infostar, o que levou a Approach a tirar seu time de 
campo. 

Duas outras empresas tambem abandonaram a partida; a Compu center, que nffo mais co- 
mercializa seus Compudata e Compufile, e a Compu max, que faliu e levou junto o “suspei- 
to" pacote Micro/DB. 

Uma empresa bastante ativa na comercializa9ffo de software para Banco de Dados 6 a 
Intersoft Microcomputadores . Seus produtos sffo: PFS: File, um sistema para gerenciamento 
de arquivos, desenvolvido pela SH americana Software Publishing Corp., e que pecapor ser 
um tanto lento. £ compativel com o Apple II, e nos EUA jff existe a versffo para o IBM-PC. 
A empresa oomercializa-o com manual em Ingles por 6 ORTN. O DB Master, considerado 
um SGBD de sofistica9ffo media, desenvolvido pela Stoneware Inc. para o Apple II, mfnimo 
de 48 Kb, sai, com manual em Ingles, por 1 1 ORTN. (Nota: uma nova versffo - o Advanced 
DB Master - foi lan9ada pela Stoneware, para rodar tambem no IBM-PC.) O ViaiFile e um 
gerendador de arquivos da Visicorp, que roda no Apple II, e seu pre90 fica em 12 ORTN. J i 
o Visidex, programa para controlai arquivos pessoais no Apple, da Personal Software, custa 
11 ORTN. Para a linha TRS-80, a Intersoft comerdaliza o Profile Plus, desenvolvido pela 
Radio Shack para seu modelo III com 48 Kb. Considerado um SGBD de mffdia sofistica9ffo, 
o Profile possui algumas fim9&es matematicas e facilidades para o trabalho integrado com 
editores de texto. Bastante conheddo no meio dos usuarios TRS,o programa serviu de “es- 
pelho" para certos BDs nadonais de linha TRS-80, como o DigFile, da Digitus, e 6 comer- 
cializado por 15 ORTN. 

Ainda no rol dos softwares estrangeiros, convem ressaltarmos o Quick-file, gerendador 
de arquivos para o Apple lie, nffo encontrado nas lojas daqui, e o Versaform, um SGBD de- 



senvolvido pela Applied Software Technology para o Apple e IBM-PC e que e oferecido aqui 
pela Royal Software. 

Dentre as empresas nadonais que se dedicam ao assunto, a Monk Micro Informdtica- 
oferece dois programas: o Data-Manager, que e um SGBD similar ao Profile, guiado por me- 
nus e possuindo senha para prote9ffo de dados (Cr$ 450 mil, em dezembro), e o Data-File, 
um programa para gerenciamento de arquivos em fita cassete. Tambem compativel com os 
modelos TRS, ele 6 vendido a Gr $ 300 mil. 

A empresa Microarte oferece dois produtos afins: o Microdata, para Apple II com 48 Kb, 
integra ao BD fun^es de graficos e edi9ffo de textos e custa 11.2 ORTN;e o Microdata H, 
um Banco de Dados hierarquico tambem para o Apple, e custa 14 ORTN. 

Um gerendador de arquivos 6 o que oferece, por 60 ORTN, a Atrium Engenharia, com o 
Sistema Atrium de Informa9des Pessoais. Este programa, que constroi fichas cadastrais, e 
compativel com o TRS modelo III. Tambem a So ft science possui um programa para cria9ffo 
e manuten9ffo de arquivos pessoais, o Colect, para TRS-80 em disco ou fita. Para o DOS do 
Apple, a EAG, do engenheiro Enio Garb ini, possui o Micro Banco de Dados, guiado por 
menus, all ORTN. 

Mais voltados para a automa9ffo de escritdrio estffo dois pacotes nadonais. Um deles e o 
Controle de Documentos-FIuxo de Infom^des, da Micro Consult, sobre o qual nffo tivemos 
muitas informa9des. O outro e o Gerendador de Documentos e Compromissos Estendido, 
voltado para equipamentos CP/M. Este sistema, da Promicro . e composto de modulos in- 
dependentes, e os mddulos Biblioteca e Agenda sffo os que, efetivamente, apresentam uma 
aplica9ffo direta de arquivamento. Cada mddulo custa 15 ORTN. 

Como curiosidade, vale dar uma olhada no Programador Robot, um aplicativo desenvol- 
vido em linguagem Fancy, composto de um conjunto de programas voltados a manipula9ffo 
de dados. £ compativel com o cartffo Fancy, da Hengesystems, e seu pre90 e de 20 ORTN. 
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Dataldgica 

Av. Paulista, 2028 - 29 andar. 
CEP 01311 - Sffo Paulo, SP. 
Tel: 283-0355 



Atrium - Engenharia de Inform a9des 
Rua Tito 1482 - Vila Romana. 

CEP 05051 - Sao Paulo, SP. 

Tel: 261-6589 



Approach Informatics 

Av. Professor Alfonso Bovero, 218. 

CEP 05019 - Sffo Paulo, SP. 

Tel.: 263-0711 

Brasoft Produtos de Informfftica 
Av. Angelica, 1996. 

CEP 01228 - Sao Paulo, SP. 

Tel: 231-2555 

Intersoft Microcomputadores 
Av. Brig. Faria Lima, 1462 - cj. 2A. 
CEP 01452 - Sao Paulo, SP. 

Tel: 212-8971 



Softsdence Sistemas Computadonais 
Av. Chibaras, 779 - Moema. 

CEP 04076 - Sffo Paulo, SP. 

Tel: 572-9088 

Promicro 

Rua Uruguaiana, 183. 

CEP 03050 - Sffo Paulo, SP. 

Tel: 292-4576 

Micro Consult 

Rua Marques de Sffo Vicente, 52 - ty. 346. 
CEP 22451 - Rio de Janeiro, RJ. 

Tel.: 259-7098 



Monk Micro Informfftica 
Rua Augusta, 2690 - 29 andar. 
CEP 01412 - Sffo Paulo, SP. 
Tel: 852-2958 

Microarte Software 
Rua Cel. Mek) de Oliveira, 763. 
CEP 05011 - Sffo Paulo, SP. 
Tel: 263-6285 



Hengesystems Engenharia de Sistemas 
Av. Indiandpolis, 762. 

CEP 04062 - Sffo Paulo, SP. 

Tel: 549-3400 

EAG 

Rua Humberto de Campos, 480 - 801. 
CEP 22430 - Rio de Janeiro, RJ. 

Tel: 239-0859 



Neste aspect o, temos que os sistemas 
gerenciadores da informa9ffo dividem-se 
em SGBDs relacionais, os mais comuns; 
SGBDs hierffrquicos e sistemas em rede. 
Para uma breve introdu9ffo ao assunto, 
sugerimos a leitura do texto “Adminis- 
tra9ffo de Dados e os micros”, de auto- 
ria dos professores Antonio L. Furtado 
e Daniel A. Menascff, da PUC-RJ, publi- 
cado nesta edi9ffo. 



Todos os sistemas vistos atd aqui 
pressupOem, na maioria dos casos, apli- 
ca9$es autdnomas, nas quais o valor da 
informa9ffo 6 medido pela utilidade que 
ela assume perante o usuffrio. No enta- 
to, a utiliza9ffo isolada do micro perde 
terreno a cada dia e a palavra de ordem 
6 integra9ffo. Neste caso, quando o volu- 
me de dados que precisamos acessar 
e manipular supera nossa capacidade fi- 



sica de armazenamento, ou mesmo 
quando o retomo obtido pelo uso dos 
dados nffo compensa o esfor90 e inves- 
timento envolvidos no “monopdlio”, ou 
ainda em casos de dados fomecidos por 
terceiros, lan9a-se mffo da informa9ffo 
compart ilhada, seja sob forma de redes 
que dividem arquivos de dados ou de 
real acesso a serv^os de Bancos de Da- 
dos existentes no mercado e, quase sem- 



pre, explorados comercialmente. Neste 
caso, o valor da informa9ffo 6 medido 
por seu potential de venda. 

Nos EUA, indiscutivelmente o mer- 
cado mais ffvido pelo uso de processa- 
mento eletrdnico das informa90es, o nti- 
mero de Bancos de Dados oferetidos aos 
usuffrios de micros 6 enorme, e neste 
grupo o pre90 dos serv^os varia bastan- 
te. Recente edi9ffo da revista norte-ame- 



ricana Byte (outubro de 84 ) declara 
que, segundo estudos realizados, foi de- 
monstrado que um uso intensivo dos 
servi9os comertiais de BDs pode custar 
ao usuffrio cerca de USJ 100 por hora 
de acesso e pesquisa e ainda que, em se 
fazendo um levantamento cuidadoso do 
mercado, pode-se chegar a economizar 
algo em tomo de 50 % dos custos com 
este tipo de serv^o, tal a heterogeneida- 
de de pre90S cobrados pelas diversas 
empresas. Os principal serv^os ofere- 
cidos sffo cota9fies e previsCes referen- 
tes aos mercados de a 95 es ou commo- 
dities; informa 95 es referentes ffs condi- 
90es climffticas em diversas partes do 
mundo; noticias divulgadas por jomais 
ou agencias intemacionais; informa 95 es 
t^cnicas e atualizadas sobre pacotes de 
software e equipamentos populares; no- 
vidades tecnoldgicas; bolsa de empregos 
e primeiros-socorros. Dentre as empresas 
que comertializam este tipo de serv^os 
estffo a CompuServe Inc., Dialog Infor- 
mation Services Inc., Dow Jones, News- 
Net, e Source Telecomputing. 

No Brasil, por enquanto, as op90es 
de Bancos de Dados ainda sffo poucas. 
As empresas mais ativas neste setor sffo 
a Embratel (que tern no Cirandffo e 
Renpac seus principais serv^os), a Te- 
lesp (sistema Videotexto) e o Serpro, 
com o serv^o Aruanda. Nesta edi9ffo, 
o usuffrio poderff se inteirar das ativida- 
des e os mais recentes lan9amentos da 
Embratel neste setor, lendo a reporta- 
gem “Micros mais prdximos das bases de 
informa90es”. 

Falar em Bancos de Dadds, contudo, 
envolve inumeros pontos relevantes para 
serem abordados. Entre eles, seleciona- 
mos uma discussffo, bastante em voga 
atualmente, sobre a privacidade do ci- 
dadffo, ao tomar-se, ele mesmo, um “da- 
do” dos BDs do Estada 

Procuramos, assim, suprir nossos lei- 
tores com um material bffsico que irff 
esclarecer o que vem a ser os tffo badala- 
dos BDs e seus sistemas de gerenciamen- 
to. Complementamos a edi9ffo com a lis- 
tagem de um SGBD inteiramente de- 
senvolvido por nosso colaborador Ivan 
Camilo Cruz e pronto para ser utilizado 
pelos usuffrios da linha TRS- 80 . Veja 
ainda neste numero um comentffrio so- 
bre os softwares de Bancos de Dados 
disponfveis no mercado national. 



AC. 
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BANCOS DE DADOS — Cresce o numero de BDs, onde 
dados de milhares de pessoas sao manipulados, e tambem 
a discussao em tomo do direito do cidadao a privacidade 



A questao 
da privacidade 

Luzia Portinari Greggio 



O processo de informatiza^ao 
da sociedade, e inserida a 
questao dos imensos BD com 
dados pessoais dos cidadaos, 
pode conduzir a uma situa^ao onde as 
desigualdades se cristalizem irreversivel- 
mente com o aumento do controle so- 
cial. Outra nao tern sido a preocupa^ao 
daqueles que acreditam que a Informa- 
tica tambem pode ser um instrumento 
de reformula 9 ao social, politica e econo- 
mica, possibilitando a descentraliza^o 
do poder e a socializa 9 ao das informa- 
9 &es de interes se publico. 

O processo de informatiza 9 ao da so- 
ciedade 6 eminentemente politico e sob 
este contexto deve ser encaminhado, 
mas, para que a sociedade possa condu- 
zi-lo, deverd adquirir mecanismos de 
controle para a sua prdpria gestdo demo- 
crdtica. E este, evidentemente, nao 6 um 
caminho facil e nem serd resolvido em 
gabinetes. 

0 Brasil, atualmente, 6 o oitavo par- 
que computacional do mundo, o que 
evidencia um rdpido e irreversfvel pro- 
cesso. No entanto, nao dispomos de ne- 
nhuma legisla 9 ao para a prote 9 ao dos di- 
reitos humanos, das liberdades publicas 
e privadas, e da privacidade frente a in- 
crifvel potencialidade da Informdtica, 
pois esta permite a posse e manipula 9 ao 
por grupos (privados ou o Estado) de 



dados sobre os cidaddos (ou empresas), 
possibilitando assim um controle social 
global. 

Ndo 6 se m fundamento que Matte- 
lard afirma que os processos de informa- 
tiza 9 ao da sociedade sempre navegam na 
semi-clandestinidade. E no Brasil, apesar 
de nao termos legisla 9 ao (nem debates) 
sobre o assunto, temos assistido a for- 
mula 9 ao de imensos BD (PIS/PASEP, 
RAIS, IR, TRU etc.), onde os dados sao 
usados, cedidos trocados, cruzados e 
vendidos sem o conhecimento do inte- 
ressado, numa clara afronta aos direitos 
dos cidaddos. 

0 uso abusivo de informa^es encon- 
tra no Brasil uma sdrie infinddvel de 
exemplos contundentes e que nem mes- 
mo sao questionados. 0 valor jurfdico 
da informa 9 ao (ou de dados) situa-se 
numa drea cinzenta, em que o cidadao 6 
sempre perdedor. 0 projeto RENAPE, o 
Documento unico, o projeto Eleitoral 
sdo alguns exemplos de todo o processo, 
e que eventualmente nao sdo negativos, 
desde que acompanhados de uma legisla- 
9 do especifica. 

UM POUCO DE HISTORIA 

Em 1968, a Assembldia Geral da 
ONU, atravds da Resolu 9 ao 2450, ini- 
ciou o debate sobre a questao da prote- 



9 do dos direitos humanos e, principal- 
mente, da vida privada em vista das no- 
vas tecnologias.O consenso em rela 9 do a 
estes problemas tern sido prejudicado, 
de certa forma, em virtude de os paises 
do Terceiro Mundo estarem muito mais 
preocupados com as questdes relativas a 
dependencia tecnol6gica e cultural do 
que com a prote 9 ao do cidaddo. De qual- 
quer forma, a resolu 9 ao foi de funda- 
mental importancia para o acirramento 
das discussSes e, em 1970, a Provmcia 
de Hesse, na Alemanha Federal, aprovou 
a primeira legisla 9 ao conhecida, e em 
1973 entrou em vigor a lei sueca: o Data 
Act. 

Dois fatos marcaram ^poca no debate 
sobre o problema de prote 9 do da priva- 
cidade: o caso Watergate, nos EEUU, e o 
projeto SAFARI, na Fran 9 a. O caso 
Watergate, em 1972, foi tido .como pe 9 a 
fundamental para a aprova 9 ao do Priva- 
cy Act, em 1974. E atualmente, apesar 
das limita 9 &es estaduais, existem diver- 
sas outras leis j i aprovadas (ou em pro- 
jeto), inclusive com a extensao de sua 
competencia para a drea privada. 

0 projeto SAFARI - Sistema Auto- 
matizado para os Fichirios Administra- 
tivos e o Repertdrio dos Individuos — 
pretendia criar, atravds de um numero 
unico, um cadastro com todos os dados 
disponiveis sobre as pessoas flsicas. 0 
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complexo lor um sistema, 
mate solida e conliavel 
deve ser sua base 
Quando voce tern um 
micro da Unitron como 
principio inteUgente. voce 
tambem tern a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
esta assegurado. Ba 
patavra de qvem 
trabath a can tinuam ente 
para oterecer uma 
iecnologia sempre atual 
cto usudrio. E o que os tatos demonstram. 

Na sua categoric, o Unitron andou sempre na 
Irente. Alem de contar com uma mtinidade de 
programas. testados e aprovadas. e os mate 



diversilicados acessorios 
de expansao - entre 
modulos, interlaces e 
peiitertcos -,o Unitron 

agora pode ser 

conectado, via telelone. a 
todas as redes existentes: 
Aruanda. Ciranddo. 
Interdata. Cyber. 

Videotexto. CMA, etc Ou. 
entaa. as redes 
particulares . acessando 
o atros micros ou 
com unicando-se com 
computadores de grande 
porte. na tungdode 
terminal intehgente. Portanto. se voce deseja um 
processamento de dados com gualidade . sate 
com nossos re vendedores ou torizados Para cada 
caso, uma sole goo InteUgente Do principio ao tim 
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projeto despertou tamanha indigna9ao 
nos franceses que, nao so motivou a for- 
mula9ao de toda a legisla9ao francesa a 
a respeito, como tambem culminou com 
a forma9ao da Comissao Informatica e 
Liberdades, que produziu vasta literatu- 
ra sobre o assunto, como os famosos Re- 
latorio da Comissao de 1975 e o de Si- 
mon Nora e Alain Mine sobre a “Infor- 
matiza9ao da Sociedade”, em 1978 . 

Atualmente, 22 paises do mundo jd 
possuem legisla9ao especifica visando a 
prote9ao das liberdades em rela9ao ao 
uso de cadastros informatizados, sendo 
que quase todas surgiram de longos deba- 
tes da sociedade civil e suas associa9oes. 

Em 1980 , o Conselho da Europa 
aprovou um texto sobre o tratamento 
automatizado de dados pessoais, jd subs- 
crito por dez paises. A partir dai, foi 
criada uma Comissao para estudos e re- 
comendav'Oes sobre problemas especifi- 
cos, cuja preocupa9ao maior tern sido, 
sobretudo, a de uma nova abordagem do 
Direito Publico, objetivando principal- 
mente um desenvolvimento democr^tico 
das sociedades informatizadas. 

Em setembro de 1980 , 21 paises 
aprovaram as recomenda9oes adotadas 
pelo ConseLho de Ministros do OCDE 
(Organiza9ao para Coopera9ao e Desen- 
volvimento Econdmico) a respeito da 
prote9ao da vida privada e de garantias, 
a nivel intemacional, de um fluxo de 
dados seguro e regular. Quanto a este 
ultimo, a OCDE identifica tambem a ne- 
cessidade de que se assegure o funciona- 
mento do fluxo de dados transfronteiras 
(FDT) como, por exemplo, entre ban- 
cos, reservas de passagens e tambem na 
comunica9ao entre matrizes e filiais de 
empresas multinacionais. 

Assim, o problema da informatiza9ao 
nao coloca em risco apenas a integridade 
do ser humano, mas tambem a prdpria 
no9ao de soberania nacional. Sobre este 
tema os paises do Terceiro Mundo tern 
colocado as suas preocupa96es, e o Bra- 
sil varias vezes manifestou suas posi9&es 
de defesa de nossa cultura, do desenvol- 
vimento tecnoldgico e de seguran9a 
nacional. 

AJLGUNS PRINCflPlOS 

Os textos da OCDE e do Conselho da 
Europa nos dao, fundamentalmente.,al- 
guns pontos bdsicos sobre a defesa e a 
prote9ao das liberdades publicas e indi- 
dividuais: principio da nao fidedignida- 
de (loyaute ) - os dados nao devem ser 
coletados ou tratados quando tiverem 
procedencia nao fidedigna ou ilicita; 
principio da exatidao — pressupoe a 



obriga9ao em verificar a exatidao dos 
dados, assegurando-se a sua permanente 
atualiza9ao; principio da finalidade - a 
finalidade da cria9§o de um cadastro de- 
ve ser defmida anteriormente, possibili- 
tando, em qualquer momento, a verifi- 
ca9§o se: os dados coletados e arquiva- 
dos estao de acordo com a finalidade de 
sua solicita9ao (principio de pertinen- 
cia), os dados nao estao sendo usados 
com objetivos diferentes dos correspon- 
dentes & finalidade do cadastro (principio 
de utiliza9ao nao abusiva), a conserva- 
9ao dos dados n 3 o excedeu (em termos 
de tempo) ao permitido para atender as 
finalidades iniciais (com exce9ao dos 
dados nao nominais); principio da publi- 
cidade - deve ser publica a existencia 
dos cadastros com dados nominais; prin- 
cipio de acesso individual - 6 direito de 
todo cidadao conhecer os dados existen- 
tes a seu respeito e em caso de erro 
(inexatidao ou procedencia ilegal) tam- 
bem 6 direito contestar ou destruir estes 
dados; principio de seguran9a - deverao 
ser tomadas medidas de seguran9a para 
man ter a integridade dos cadastros. 

Alem destes, que jd fazem parte da 
legisla9ao de inumeros paises, outro 
principio come9a a ter importancia para 
a discussao da privacidade: o direito de 
acesso, por todos os cidadaos, as infor- 
ma9oes administrativas de interesse pu- 
blico. Este principio, que consta na le- 
gisla9ao de quase todos os paises, de for- 
ma implicita ou explicita, pode-se tor- 
nar viavel operacionalmente e por este 
motivo tern sido insistentemente lembra- 
do como ponto de partida para a sociali- 
za9ao das informa9oes. 

O CASO BRASILEIRO 

No Brasil, desde 1975 ja foram apre- 
sentados varios projetos de lei tratando 
sobre este tema, e todos eles, exceto o 
projeto da Deputada Cristina Tavares 
(em 1981 ) que ainda estd em tramita9ao 
no Senado, foram retirados ou vetados. 
Este projeto em tramite dispoe sobre a 
divulga9ao, pelo poder Executivo, do 
elenco de BD existentes no pais, com 
indica9ao do universo abrangido e o tipo 
de informa9ao. 

Mas, definitivamente, o problema 
nao se exaure em algumas linhas da 
legisla9ao. £ de fundamental importancia 
que sejam estabelecidos mecanismos de 
operacionaliza9ao factiveis, dentro de 
uma reformula9ao do Poder Judiciirio e 
envolvendo mudan9as nos eddigos Civil, 
Penal e na prdpria Constitu^o. £ preci- 
so que se aproveite o momento de rede- 
mocratiza9ao do pais para a cria9ao nao 



s6 de uma legisla9ao, mas de mecanis- 
mos politicos que permitam o real cum- 
primento da lei. 

Com esta inten9ao, o conselho de In- 
formatica e Direitos Humanos, criado 
pela ANDEI como 6rgao colegiado de 
varias entidades (Associa9§o de soci 61 o- 
gos, Federa9ao Nacional de Jornalistas, 
ABI, Instituto de Engenharia partidos 
politicos e varias entidades da area juri- 
dica, entre outras), esta elaborando su- 
gestdes para que esta legisla9ao abranja 
todos os universos possiveis, e tambem 
incentivando o debate em outras areas 
n 5 o especificas da comunidade de Infor- 
matica, num trabalho de base junto a 
toda a sociedade. ■ 



Luzia Portinari Greggio atua na Area de PD h6 
16 a nos, 6 ex Presidents da Associagao dos 
Profissionais de Processamento de Dados do 
Estado de Sao Paulo , e Presidente do Conse 
Iho de Informatica e Direitos Humanos, sendo 
tamb4m Consultora T6cnica da revista Infor- 
matica & Administragao. 
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INFORMACOES UTEIS PARA OUEM TEM, OU NAO TEM O MICRO. 



A F ilcres f az de sua empres a o seu Show Room y 
! Especialistas em m i crocom P ut adores 

levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 



A Filcres oferece aos seus usuarios assistencia tecnica 



autorizada Prologica ■■■ , completa bib 

de software, diversificada linha de suprimentos, alem de 
treinamento gratuito de operacao e linguagem 



Venha ate aqui, ou ligue que iremos ate voce! 



filcres 



FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01 209 - SSo Paulo - SP 
Tels.: 223 1446 - 220-5794 - 222-3458 
PBX: 223 7388 



LEVE NOSSO SHOW ROOM PI SUA CASA! 




BANCOS DE DADOS — 

Aqui esta um mini gerente 
de dados pratico e eficiente, 
para os micros da linha 
TRS-80. Experimente . . . 




Um gerente pratico 
em banco de dados 



0 banco de dados 6 um programa que auxilia o usu£- 
rio na tarefa de armazenar e recuperar dados de for- 
ma eficiente. Neste artigo focalizaremos um siste- 
ma de gerencia de banco de dados, trazendo um 
programa para tal e detalhando o modo de utilizd-lo. 

Escrito em linguagem BASIC para micros da linha TRS-80 
modelos I e III, este artigo estd dividido em cinco partes: 

. Como criar um banco de dados. 

. Como introduzir e recuperar dados. 

. Como indexar dados. 

. Como imprimir dados. 

. Observances gerais de implementanao. 

COMO CRIAR BANCOS DE DADOS 

A crianlo do banco de dados compreende, em primeiro lu- 
gar, as defininSes de todos os campos da ficha e sua divisao pe- 
las telas. A ficha 6 um conjunto de campos e mensagens dividi- 
dos em varias telas de video, sendo a menor unidade lida ou es- 
crita pelo gerenciador no disco. Ji a tela 6 o conjunto de cam- 
pos e mensagens que sao impressos e/ou lidos de cada vez, en- 
quanto que o campo e a menor unidade de informanSes arma- 
zenavel pelo banco de dados. Uma ficha ou uma tela 6 um con- 
junto heterogeneo, isto 6, de vinos tipos de dados, enquanto 
um campo 6 homogeneo, ou seja, contim informanoes de ape- 
nas um tipo. 

Caracterfsticas de um campo: 

1 — NOME: string de caracteres que identifica o campo. Deve 



ser unico em cada tela. O tamanho maximo tebrico do nome 
de um campo 6 de 255 caracteres. 

Regras de formanio de nomes: 

. um nome deve comenar com uma letra e pode ser seguido 
de letras ou numeros; ou um nome deve comenar com “ 4 44 
(plic), sendo seguido de um ou mais caracteres quaisquer, in- 
clusive brancos, e deve terminar com 44 4 

2 - POSI^AO: a posinao em que o campo deve aparecer na 
tela. Um campo nao deve ocupar a primeira ou as tres ultimas 
linhas da tela. 

3 - TIPO: tipo do dado que seri armazenado no campo. Os ti- 
pos possiveis e seus respectivos simbolos sao: String ($),Intei- 
ro (%), Real (!) e Real de Precislo Dupla (#). 

4 - TAMANHO: tamanho do campo em caracteres. O tama- 
nho miximo tebrico de um campo 6 de 254 caracteres. 

5 - DECIMAIS: numero de casas decimais do campo. Caracte- 
rfstica que se aplica somente a campos numiricos. 

Estas defininbes se tomarao mais claras com um pequeno 
exemplo pritico. Vamos criar um banco de dados para armaze- 
nar as fichas funcionais dos empregados de uma firm a. Os cam- 
pos que compoe esta ficha slo: NOME, PAI, MAE, DATA DO 
NASCIMENTO, EST. CIVIL, CONJUGE, IDENTIDADE, 6R- 

gAo expedidor, carteira profissional, serie, 

CERTIF. DE RESER VISTA, TfTULO ELEITORAL, SE?AO, 
ZONA, CIC, ENDERECO, CIDADE, ESTADO, DATA DE 
ADMISSAO, CARGO, SALARIO. 

Estes campos sao divididos em duas telas como mostram as 
figuras 1 e 2. 
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Agora deveremos rodar o programa e selecionar a opnao 1 
do Menu Secundario 1 - ABRIR/CRIAR UM BANCO DE DA- 
DOS, (figura 3). 0 programa pediri entao o nome do banco a 
ser usado. Esse nome 6 uma seqiiencia de um a oito caracteres 
alfanumiricos, sendo o primeiro obrigatoriamente alfabitico. 
Fornecido o nome, o programa iri procuri-lo no disco e se for 
constatada sua inexistencia, seri feita a pergunta: O BANCO 
DE DADOS NAO EXISTE. QUER CRIA-LO?. A essa pergunta, 
responda S. Em seguida a pergunta NUMERO DE TELAS?, 
responda 2. 

Depois disso, o programa pediri, uma a uma, as defin^bes 
dos campos da tela 1 (figura 1 ). Sendo assim, digite os dados: 

NOME, 128, $,30 
PAI, 271, $,30 
MAE, 335, $,30 

'DATA DO NASCIMENTO', 384,$, 8 
'EST. CIVIL', 512, $,1 
CONJUGE, 532, $,30 
IDENTIDADE, 640, $,12 
'0RGA0 EXPEDIDOR', 674, $,12 
'C. PR0FIS. ' ,704,$, 12 
'SERIE ',738, $,12 

'CERT. DE RESER VI ST A' ,768,$, 15 

O primeiro parametro 6 o nome do campo, o segundo 6 sua 
posi 9 ao na tela, o terceiro e o tipo, o quarto 6 o tamanho. Cam- 
pos numiricos tern um quinto parametro, o numero de casas 
decimais, que deve vir depois do tamanho. 

Note que o nome de alguns campos vem entre 44 4 44 (plies). 
Isso ocorre devido a presen 9 a de caracteres especiais no nome. 
O campo SERIE possui dez espa^os no final de seu nome ape- 
nas por motivos estiticos. 

Apbs entrar com todos os campos digite (ponto) e o pro- 
grama assumiri o fim da defini 9 ao dos campos desta tela. A se- 
guir ele pediri o numero de mensagens da tela. Mensagem 6 
uma constante que aparece na tela junto aos campos com fins 
documentais e/ou estiticos. Como a tela de que estamos tra- 
tando possui duas mensagens, responda com 2. Em seguida, o 
programa pedird a posi 9 ao e o conteudo de cada mensagem. 
Responda: 

82 

*** FICHA FUNCIONAL *** 

256 

FILIACAO 




Figura 2 




Observe que se o conteudo da mensagem contiver os delimi- 
tadores (vfrgula) ou 44 : ,, (dois pontos), a string deverd ser 
fomecida entre aspas. Ent§o o programa mostrard sua tela e 
perguntard: GOSTOU?, responda S ou N, se voce respondeu 
posit ivamente, o programa repetird todo o ciclo para a segunda 
tela. Caso contririo, pedird modifica 9 bes nos campos, um a um. 

Antes de modificar um campo, voce pode querer saber os 
valores atuais de cada uma de suas caracterfsticas. Para isso, di- 
gite “?” e eles serSo impressos. Caso nzlo se deseje fazer modifi- 
ca 9 bes neste campo, basta digitar ENTER e ele permanecerd 
inalterado. 

Para modificar o valor de apenas uma caracterlstica, nao 6 
necessdrio redigitar toda a defin^ao, basta digitar as virgulas e 
o valor a ser modificado. Por exemplo, suponha que voce te- 
nha errado a posi 9 ao do campo IDENTIDADE. Para corrigi-lo, 
digite 44 , 640 ,, . & 
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Pode ser necessdrio tambdm incluir ou retirar um campo. 
Para incluir digite “+”, e um novo campo em branco sera acres- 
centado antes do atual. Da mesma forma, se for digitado o 
campo atual sera eliminado. 

Ap6s passar por todos os campos, digite novamente e a 
modifica^ao terminard. Em seguida, o programa perguntard pe- 
los novos valores de posi 9 ao e conteudo das mensagens. Caso 
nao houver altera^oes a fazer, digite apenas ENTER. Em caso 
de modifica 9 oes, digite o novo valor e ele substitut'd o anterior. 

As defini 9 oes dos campos para a tela 2 sdo: 

'TIT. ELEIT. ' , 128,$, 8 

SESSAO, 155,$, 5 

ZONA, 176,$, 3 

CIC,256,$, 12 

ENDERECO , 384 , $ , 40 

'CIDADE ' ,448, $,20 

ESTAD0,488,$,2 

'DATA OE ADMISSAO' ,576,$, 8 

CARGO, 609, $,20 

SALARIO, 640, tt, 14,2 

Observe que o campo CIDADE tern dois espa 9 os no final de 
seu nome. A tela 2 ndo tern mensagem. 

Apos definir todas as telas o computador gravard a descri- 
9 §o do banco de dados em um arquivo no disco com o nome 
escolhido por voce e com a extensao “/DSC”. Criard tambdm 
dois arquivos para conter os dados com extensdes “/DTO” e 
“/DTI”. 

COMO INTRODUZIR E RECUPERAR DADOS 

Para introduzir dados no banco, selecione a op 9 ao 1 do Me- 
nu Secunddrio 2 — INSERIR DADOS (flgura 3). O programa 
mostrara a tela 1 de sua ficha pronta para ser preenchida. A 
op 9 ao 2 serd vista mais adiante. 

Vdrias teclas de controle podem ser usadas para auxiliar o 
preenchimento da ficha. As setinhas d direita e a esquerda mo- 
vem o cursor um cardter a direita ou a esquerda, respectivamente. 
As setinhas para baixo e para cima movem o cursor para o pr6- 
ximo campo e para o campo anterior da tela, respectivamente. 

As teclas CTRL+Z CTRL+W passam para a prbxima tela e 
voltam a tela anterior, respectivamente. Os micros compatfveis 
com o TRS-80 modelo III ndo possuem a tecla* CTRL. Ela d si- 
mulada pressionando-se ao mesmo tempo SHIFT e a setinha 
para baixo. Para mais detalhes, consulte o capftulo 4 do Manual 
de Opera 9 ao e Linguagem BASIC do CP-500. 

Selecione a op 9 §o 3 e voce poderd pesquisar, modificar e 
apagar suas fichas. Esta op 9 §o tambdm tern vdrios comandos 
de controle. A tecla “?” lhe mostrara umalista dos disponfveis. 

As teclas setinha para baixo e setinha para cima passam, res- 
pectivamente, para a prdxima ficha e para a anterior. As teclas 

e “/” passam, respectivame nte, para a primeira e ultima fi- 
cha. Os comandos CTRL+Z e CTRL+W tern a mesma fun 9 io 
anterior, ou seja, passam telas. 

O coman do E permite modificar a ficha. Quando se usa essa 
tecla, as de controle voltam a ter a mesma fun 9 ao que possufam 
no momento da inser 9 ao. 

A tecla A apaga uma ficha. Na verdade, ndo hd uma elimina- 
te) fisica da ficha. Este comando apenas coloca uma marca ne- 
la. Quando se usa a op 9 do 2 do Menu Secunddrio 2 - INSE- 
RIR SOBRE FICHAS APAGADAS, em vez de ser criada uma 
ficha nova, a ficha inserida substitui a apagada. O comando R 
retira a marca da ficha e deve ser usado antes de se inserir uma 
nova ficha, ao usar a op 9 ao 2. O comando F faz pesquisas no 
banco de dados, o que s6 serd visto mais adiante. 



COMO INDEXAR DADOS 

A indexa 9 ao de banco de dados d uma tdcnica de programa- 
9 I 0 que permite organizar e selecionar fichas do banco. O m d- 
todo de indexa 9 ao empregado sao drvores bindrias. 

Para se criar um arquivo-fndice, selecione a op 9 ao 3 do Me- 
nu Secunddrio 3 - CRIAR UM ARQUIVO DE INDICES. Esta 
op 9 ao necessita de tres parametros: o nome do arquivo-fndice 
(que conterd a drvore bindria), o campo-chave e a cond^ao de 
indexa 9 §o. O nome do arquivo-indice segue as mesmas regras 
de forma 9 ao dos nomes de bancos de dados. 

O campo-chave d um dos campos do banco que d usado co- 
mo parametro da indexa 9 §o. Ele pode ser qualquer um dos 
campos do banco, desde que tenha um tamanho menor ou igual 
a 248 caracteres. O nome do campo-chave deve vir entre “ 4 ” 
(plies), se ele contiver caracteres especiais. Se o campo nao 
pertence a tela 1 , seu nome deve ser seguido pelo numero da 
tela a que pertence, entre parenteses. Por exemplo* ‘CIDADE 1 
( 2 ). 

A condi 9 ao de indexa 9 ao d uma expressao 16gica que selecio- 
na as fichas do banco que serao inclufdas no arquivo-indice. A 
sintaxe de uma expressao 16gica d: 

<EXPR. RELACIONAL) I <0P. LQGIC0) <EXPR. RELACIONAL) ] ... 

Os colchetes indicam que o seu conteudo d opcional. As re- 
ticencias indicam que o conteudo dos colchetes pode ser repe- 
tido. O < OP.LOGICO > pode ser “.” (AND) ou ‘V’ (OR). A 
sintaxe de uma <EXPR. RELACIONAL > d: 

< CAMPO > [ "<" <# TELA> M )•• ] <0P. RELACIONAL) (CONSTANTE) 

O numero da tela d obrigatdrio quando q campo ndo pertence 
d tela numero 1. O <OP. RELACIONAL > poae ser: = (igual), 
< > fdiferente), < (menor), < = (menor ou igual), > (maior), 
> = (maior ou igual). A < CONST ANTE > deve ser uma string 
entre aspas para campos do tipo “$” e um numero para os ou- 
tros tipos de campos. 

Sao exemplos de expressSes 16gicas: 

NONE >• -I- . N0HE < "J" 

H0HE < “I" ♦ NOME >• "J" 

SALARICK 2 ) >« 2000000 . 'CI0A0E '<2>»"Rlo de Janeiro" 

A primeira expressao serve para selecionar apenas as fichas 
cujos nomes contain pela letra “I”. A segunda, para retirar as 
fichas cujos nomes contain pela letra “I” e a terceira expres- 
sao serve para selecionar as fichas de altos funciondrios residen- 
tes no Rio. 

Todos os bancos de dados tern um campo prd-definido que 
se chama ‘APAGADO?*. Este campo d do tipo “$” e assume o 
valor “S” se a ficha estiver apagada e “N” em caso contrdrio. 
Isso permite ao usudrio selecionar ou eliminar, da indexa 9 ao, 
as fichas marcadas como apagadas. Por exemplo, a expressao 
‘APAGADO?’ = 44 N” eliminard da indexa 9 ao todas as fichas 
marcadas como apagadas. 

Quando um arquivo-fndice estd aberto, o banco de dados 
aparenta estar ordenado pelo campo-chave e apenas as fichas 
que foram inclufdas no arquivo-fndice fleam acessfveis. 

Todas as inser 95 es feitas no banco de dados serao automa- 
ticamente inclufdas no arquivo-fndice que estiver aberto. Os 
outros arquivos-fndices que, pot ventura, o banco possua, per- 
manecerao inalterados. 

Quando um arquivo-fndice estiver aberto voce poderd usar 
o comando “F” da op 9 ao 3 do Menu Secunddrio 2 para locali- 
zar uma ficha por seu campo-chave. O programa pedird uma 
constant e para pesquisa. No caso de o tipo do campo-chave ser 
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“$”, nao d necessdrio fomecer todo o campo, apenas uma par- 
te dele d suficiente. Por exemplo: para localizar “Antonio Er- 
mirio de Morais” bastard fornecer a string “Antonio”. Aten 9 ao: 
as aspas nao devem ser usadas. 

A op 9 ao 2 do Menu Secunddrio 2 - INSERIR SOBRE FI- 
CHAS APAGADAS - ndo pode ser empregada quando hd um 
arquivo-fndice aberto. 

COMO IMPRIMIR DADOS 



Este programa oferece a possibilidade de se criar relat6rios 
com bast ante flexibilidade. Antes de se executar um relatdrio d 
preciso descrever o que d uma PAGINA DE RELATQRIO. Tra- 
ta-se da menor unidade impressa pelo programa em uma im- 
pressora. £ composta de tres partes: o cabe 9 alho, o detalhe e o 
rodapd. A descr^ao da pdgina tambdm inclui a descri 9 ao da 
impressora para a qual foi feita. 

Ap6s selecionar a op 9 ao 1 do Menu Secunddrio 4 - CRIAR 
DESCRIQAO DE RELAT0RIO - o computador pedird o no- 
me do arquivo de formato da impressao. Nele ficarao armaze- 
nadas as descri95es da impressora e da pdgina. O nome deste 
arquivo segue a mesma regra de forma 9 ao do nome do banco 
de dados e serd gravado no disco com extensao “/FMT”. Ap6s 
isso, o computador pedird a descr^ao da impressora, que con- 
siste do numero de colunas, numero de linhas e seqiiencias ini- 
cial e final. 

As seqiiencias inicial e final sao conjuntos de caracteres es- 
peciais transmitidos para a impressora antes e depois de se pro- 
cessar o relatdrio. Com isso, pode-se modificar automaticamen- 
te algumas caracterfsticas da impressora, como o tamanho das 
letras, o conjunto dos caracteres usados etc. Para saber quais 
sao os caracteres especiais da impressora que voce estd usando, 
consulte o manual, pois eles nao sao padronizados. 

Para entrar com essa s seqiiencias deve-se digitar os eddigos 
numericos dos caracteres. Um mdximo de 255 d permitido pa- 
ra cada seqiiencia. Para encerrar a entrada em uma seqiiencia 
basta digitar ENTER. 




PARA IMPRESSORAS DE 80 COLUNAS 




CABECALHO 






# de linhas ■ 9 






TABULACAO 


CONTEUDO 




0 


( vazia) 




0 


( vazia) 




17 "R E L A 


CAO DE FUNCIONA 


RIOS" 


0 


(vazia) 




1 


78 (hifens) 




18 


"NOME( 31 ) ENDERECO" 




46 


"Cl DADE ( 9 ) ESTADO" 




1 


78 (hifens) 




0 


(vazia) 




DETALHE 






# de colunas • 4 






TABULACAO 


CAMPO 




4 


NOME 




36 


ENDERECO ( 2 ) 




36 


•CIDADE M2) 




63 


ESTADO { 2 ) 




# de linhas de separa^ao « 1 




Obs: Como a tabula^ao 


da terceira coluna (campo CIDADE) cai sobre 


o campo anterior. 


esta coluna sera impressa uma 


linha abaixo. 


Portanto, cada ficha ocupara duas linhas. 




RODAPfi 






* de linhas ■ 4 






TABULACAO 


CONTEUDO 




0 


(vazia ) 




1 


78 (hifens) 




0 


( vazia ) 




0 


(vazia) 





Figura 5 



Ap6s descrever a impressora, deve-se descrever o cabe 9 alho, 
um conjunto de at£ 10 linhas que 6 impresso no topo da folha 
de papel. Cada linha tern uma tabula 9 ao e um conteudo. O con- 
teudo 6 uma string de caracteres que se contiver os delimitado- 
res ou 44 :” deverd estar entre aspas. 

Opcionalmente pode ser colocado no cabe 9 alho um conta- 
dor de p^ginas. Neste caso o programa pedird o numero da li- 
nha e da coluna do cabe 9 alho onde o contador deverd ser im- 
presso. Se a pos^ao dada jd estiver ocupada por um string ou 
estiver fora do cabe 9 alho, o programa rejeitard os dados. 

Em seguida deve-se descrever o detalhe, um conjunto de 1 a 
50 colunas, cada uma composta de um dos campos do banco 
de dados. 

Para cada coluna deve ser fomecida uma tabula 9 ao e um 
nome de campo. Se o campo nao pertencer a primeira tela, o 
seu nome deverd vir seguido do numero da tela entre parenteses. 

A tabula 9 ao deverd ser sempre em ordem crescente. No caso de 
se dar uma tabula 9 ao menor que a dada anteriormente, o cam- 
po correspondente serd impresso uma linha abaixo do campo 
anterior. Com esta caracterfstica podemos imprimir uma ficha 
maior que o tamanho da impressora. 

Por motivos estdticos d habitual colocar uma ou mais linhas 
em branco entre cada ficha. Para isso o programa pede o nume- 
ro de linhas entre as fichas logo ap6s a defini 9 ao das colunas. 

Depois de fomecida a descri 9 ao do detalhe, o programa pe- 
dird a descri 9 ao do rodapd, que d igual ao cabe 9 alho em todos 
os sentidos, diferenciando-se apenas pelo fato de ser impresso 
embaixo do detalhe. Veja nas figuras 4 e 5 exemplos disso. 

Um gabarito de impressao pode ser muito util na cria 9 do da 
defini 9 ao da pdgina. 

Para executar um relat6rio jd definido, selecione a op 9 ao 4 
do meu principal. O programa pedird o nome do arquivo de 
formato que foi definido anteriormente. Pedird, tambdm, uma 
condi 9 ao para a impressao. A condi 9 ao d igual em tudo a con- 
dipao de indexa 9 io. 

OBSERVANCES GERAIS DE EMPLEMENTAQAO 

Assim como todas as obras humanas, este programa tarn- ^ 
bdm tern suas limita95es. Vamos conhece-las: 
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CAMPOS POR FICHA - 200 
TELAS POR FICHA - 100 
MENSAGENS POR TELA - 1 0 
OPERATES RELACIONAIS - 20 
LINHAS DE CABECALHO - 10 
LINHAS DE RODAPE - 10 
COLUNAS DE DETALHE - 50 
TAMANHO DE CAMPOS “S ” - 254 caracteres 
VALOR DE CAMPOS “%” - 32768/32767 

VALOR DE CAMPOS “!” - 10** 38/10** 38 (6 digitos de 
precisao) 

VALOR DE CAMPOS “ # ” - 10**38/10**38 (16 digitos de 
precisao) 

O programa utiliza varios arquivos de dados para armazenar 
describes e dados. Portanto, ao rodar o BASIC disco, devemos 
informar quantos arquivos serao usados. Em urn caso extremo 
o programa podera usar ate 12 arquivos simultaneamente. Por- 
tanto. se voce esta usando NEWDOS-80, entre com o comando 
BASIC 12V ao rodar o interpretador BASIC. 

Para facilitar as modifica 96 es no programa, 6 aconselhdvel 
digitd-lo com os comentarios. Entretanto, nao 6 possi'vel exe- 
cutar o programa com os comentarios. Por isso, ap 6 s digitd-lo 
e salva-lo em disco, execute o comando CMD“C”e salve a co- 
pia compactada em outro arquivo. 



Ivan Cam Ho da Cruz domina varies linguagens de programagao, entre elas 
BASIC, Pascal, FORTRAN, COBOL, PL/1 e Assembler. Tem experiSn- 
cia em computadores grandes, minis e micros. Atua/mente faz um curso 
na UFRJ, onde traba/ha no Institute de Qufmica desenvolvendo um sis- 
tema contdbil e outros programas administrativos. 



Gerenciador de banco de dados 



10 'MBDADOS/0 AS - Gerenciador de Banco de Dados - VERSAO 1.4 

20 

30 '•*• INICIALIZACOES 
40 

50 CLS* CLEAR 3200s DEFINT A-Zs CMD"BREAK ,N" 

60 FOR K»1 TO 48: RFAD X, Yl, Y2 

70 FOR I-X + 4 TO X+6 STEP 2s FOR J-Yl TO Y2s SET(I.J): NEXT Js FO 
R J-Y2 TO Yl STEP -is SET(I+l,J)s NEXT Js NEXT I 
80 NEXT K 

90 DATA 0.0.20,4.3,5,8,6,8,12,3.5.16,0.20 

100 DATA 24,3,8,24.15,17,28.0,2,28.9,11,28,18,20,32,0,2,32,9,11, 

32.18,20,36,0,2.36,9,11,36,18,20,40,3.5,40,12,17 

110 DATA 48.3.17.52.0,2,52,18,20,56,0,2,56, 18.20,60,0,2,60.12,14 

.60,18,20.64,3,5,64,12,17 

120 DATA 72,0,20,76,0.2,76,9. 11 ,76. 18,20,80,0,2,80,9. 11 ,80, 18,20 
.84.0,2,84,9,11,84,18,20,88,3,8,88,12,17 

130 DATA 96,0,20,100,0.2,100,18,20,104,0,2,104,18,20,108,3,5,108 
,15,17,112,6,14 

140 PRINT 8586 , "MINI SISTEMA de GERENCIA de BANCOS de DADOS" 

150 PRINTS PRINT TA0(22>, Versao 1.4 

160 PRINT: PRINT TAB ( 1 1 ) ,"Copgr i ght <C> 1984 - Ivan Caaiilo da 

Cruz" 

170 DIM BCI,C%,C,C1 , C2,CH, CH% , CO, DUMMY* , E 1 , El \ , E2, E2S , E3 , E3S , E4 , 
E4S,ECS,ED,ED» ,EL0.EL0S,ER.F0,F1,F2,F3,F4,F5,F7.FF,FIM,FM,FM%, I, 
11,12 

180 DIM IA. IC, ID, ID%, II , J, Jl, J2.K, LI.LL.LV, N1 , N2 , N3 , N4 , N5 , N6 , N7 , 

N8 , N9 , NA , NF , NP , 0 , OPS , P , P T , PG , PL . PR 

190 DIM RS.RAIZ.SS,S1S.S2S,S0MS,TC,TD,TKS.01R,V2R 

200 CR-176: F6— 1 * STS=""s VR*-"i*»* MBDADOS - Versao 1.4 «*« 

210 C 1 S**"C "♦CHRS < 9 ) +CHR4 ( 8 ) +CHRS < 10>+CHRS( 13 >+CHR*<23)+CHR*(26) 
220 C2f="C"+CHR*( 10)+CHR%( 13>+",/?"+CHRS(23)+CHR*(26)+"EeAaRrFf" 
230 S0M*»""1 FOR 1-1 TO 26s READ Js S0M*=S0MS+CHRS( J) s NEXT I 
240 P T = VARPTR < SOMS > 

250 DATA 62,80,245,62,1,211,255,62.50,61.32,253,62,2,211,255,62, 
50,61,32,253,241 ,61,32,233,201 

260 DIM C5( 50 ) , CCS ( 200 ) ,CMS< 10, 10) ,CM(20) ,CTS<20) , DC (200) , FMS ( 20 
0) ,L4S(10> ,L6S< 10) ,LG(20) ,NC< 10 > , NCS < 200 ) , NM< 10) , P 1 < 10 ) , P2< 10 ) ,P 
C ( 200 ) . PM < 10,10) ,RL<20) ,T4( 10) ,T5<50) ,T6< 10 ) , TA ( 1 0 ) , TC < 200 ) . TES < 

1 9 ) , TP ( 200 ),TPS(4),TT<4) ,ZRS<4) 

270 TES< 1 )-"Arqu i vo vazio"« TES(2)»"Ca«po invalido": TES(3)»"Cam 
po nao pertence ’a esta tela": TES(4)-"Tela invalida": TES(5)-"D 
escricao inexistente": TE*(6)-"Eu esperava um ') '" 

280 TES< 7 ) -"Eu esperava um operador relacional"! TES<8)»"Eu espe 
rava um string ou um numero": TES<9)-"Eu esperava um operador lo 
gico": TES(10)»"0 campo nao e' unico na tela": TE*(li)»"A pagina 
e' muito peguena" 



290 TES ( 12 ) “"Nao exist? banco ae dados aberto": TES<13)»"Eu espe 
rava uma TES< 14 ) »"Pos i cao invalida": TES< 15)-"Ta»anho tnva 

lido"* TEf ( 16)-"Erro de disco": TES< 17 ) -"V» 1 i do apenas em arguiv 
os seguenciais" 

300 TES( 18)«"Val ido apenas em arquivos indexados": TES ( 19 ) »"Ar qu 
ivo de indices inexistente" 

310 TPS(1)»"S": TPS(2)«"X"i TPS(3)-"i"s TPS(4)-"I»" 

320 TT(2)-2i TT<3)-4* TT<4)«0 

330 ZRS(2)-MKIS(0)s ZRS ( 3 ) -MKSS(0 ) * ZRS < 4 ) -MKDS< 0 ) 

340 FOR I-i TO lOOn* NFXT T 
350 GOTO 10960 
360 ' 

370 • 

380 

390 '«••• ROTINAS DE VIDEO 

400 a 

410 ' 

420 «•««•» 

430 '•*• LEITURA DO TECLADO - 1 •«* 

440 

450 'Entras I - Tela atual, TP O , PFO, Pl<), P2<), NCSO, 

460 ' TCO, CR, CIS 

470 'Sail CCSO - Dados lidos 

480 'Destrois J, K, II, 12, ED, PR, CS, IC, FO, P, STS, RS 

490 ' 

500 GOSUB 1270: GOSUB 1020s J«P1<I>* K-P2(I)s F0=0 
510 I i*PC( J)+LEN(NCS( J) )♦ 15362: I 2-1 1 + TC ( J > -1 
520 ED-Ils PR-PEEK(ED): POKE ED,CR 
530 CS-INKEYS: IF CS-"" THEN 530 

540 ON INSTR (C1S,CS)+1 GOTO 610,550,560,570,500,680,590,600 

550 POKE ED , PR * ED-Il-ls GOTO 640 

560 IC-ls GOTO 630 

570 IC— is GOTO 630 

580 POKE ED , PR s ED-12+1 : GOTO 650 

590 GOSUB 680: I-I-ls IF I<1 THEN I-NPs GOTO 500 ELSE 500 
600 GOSUB 680s I-I*ls IF I>NP THEN 1-1 s GOTO 500 ELSE 500 
610 IF ASC ( CS ) < 32 THEN GOSUB 10700s GOTO 530 
620 FO— is IC-ls PR-ASC < CS ) 'Modificacao na tela atual 
630 POKE ED, PR: ED-ED+IC 

640 IF ED< I 1 THEN J-J-l s IF J<Pi<I) THEN J-K s GOTO 510 ELSE 510 
650 IF ED ) 12 THEN J-J+ls IF J>K THEN J»Pl<I)s GOTO 510 ELSE 510 
660 PR-PEEK < ED ) S POKE ED.CR 
670 GOTO 530 

680 IF NOT FO THEN RETURN 
690 POKE ED , PR s P-VARPTR (STS) 

700 FOR J-P 1(1) TO K 

710 1 1-PC< J)+LEN(NCS< J) )♦ 15362 

720 POKE P, TC( J) 

730 POKE P+1, II AND 255 
740 POKE P+2, 11/256 

750 IF TP < J)-l THEN RS=STS ELSE IF TP<J)-2 THEN RS-MK IS ( VAL < STS ) 

> ELSE IF TP < J)«3 THEN RS-MKSS ( VAL < STS ) ) ELSE RS=MKDS ( VAL (STS ) > 
760 LSET CCS ( J ) -RS 

770 NEXT J 
780 RETURN 
790 

800 '**• LEITURA DE TECLADO - 2 ••• 

810 a a 

820 'Entras K, TM, CR 

830 'Sa i s RS 

840 'Destrois J, CS 

850 » 

860 RS-"" s PRINT 9K ,CHRS(CR ) » s J«0 
870 CS-INKEYS s IF CS-"" THEN 870 
880 IF J-TM THEN 900 

890 IF CS>«" " AND CS<-"z" THEN RS-RS+CSs J-J+ls GOTO 930 
900 IF CS-CHRS ( 13) THEN PRINT 3K+J," ",s RETURN 

910 IF CS-CHRS(8) THEN IF J>0 THEN J-J-l s R S-LEFTS ( RS , J) ELSE 87 
0 

920 IF CS-CHRS < 24 ) THEN PRINT 3K , STR INGS < J+ 1 , " ") r s GOTO 060 
930 PRINT 3K , RS , CHRS ( CR ) » " ", 

940 GOTO 870 

950 ’aaaaaaaaaeaaaaaeeaaaaea 
960 '••• DISPLAY DADOS aaa 
970 

980 'Entras I - Numero da tela a ser mostrada, Pl<), P2<>, 

990 ' PCO, TP < > , FMSO, NCSO, CCSO, ELO, NF 

1000 'Destrois J 

1010 ' 

1020 FOR J-P 1(1) TO P2< I > 

1030 PRINT 3 PC<J)+LEN(NCS(J>)+2,, 

1040 IF TP < J>-1 THEN PRINT CCS<J), ELSE IF TP(J)-2 THEN PRINT US 
ING FMS < J ) , CVI ( CCS ( J ) ) , ELSE IF TP<J)-3 PRINT USING FMS(J), CVS 
(CCS(J)>p ELSE PRINT USING FMS(J), CVD(CCS(J)), 

1050 NEXT J 
1060 GOSUB 1150 

1070 PRINT 3919, "FICHA -", NF , 3983, "TELA I, 

1080 IF ELOOO THEN PRINT 3934, "APAGADA", 

1090 RETURN 

1100 a aaaaa 

1110 DISPLAY MOLDURA aaa 

1120 

1130 'Entras BCS, IDS, VRS 

1140 ' 

1150 PRINT 316, VRS, 

1160 PRINT 3832, CHRS ( 151 ) , STR INGS < 20 , 131 ) ,CHRS < 151 ) , STR INGS ( 14 , 
131 ) , CHRS (151 >,STRINGS<9, 131 ) ,CHRS( 151 ) ,STR INGS ( 16 , 1 31 ) , CHRS (171 

> I 

1170 PRINT CHRS ( 149 ) , " BANCO - ", BCS, TAB ( 21 ) ,CHRS( 1 49 ) , TAB ( 36 
> ,CHRS( 149) , TAB (46) ,CHRS( 149) , TAB (63) ,CHRS( 170) , 

1180 PRINT CHRS ( 149)," INDICE * " , IDS • TAB < 21 ) , CHRS ( 1 49 > , TAB ( 36 ) , 
CHRS( 149) ,TAB(46) ,CHRS( 149) , s POKE 16383.170 
1190 RETURN 

1200 'aaa 

1210 '»*• DISPLAY FORMATO aaa 
1220 'aaaaaaaaaaaaaaaaaaaaaaaaa 
1230 'Entras- I - Numero da tela a ser mostrada 

1240 ' PCO, NCSO, TCO. PIO, P2<). NMO, PM<,>, CMS(,> 

1250 'Destrois J 

1260 ' 

1270 CLS 

1280 FOR J«P1(I> TO P2< I ) 
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N Nvi\ 800 



NOVO LANCAMENTO DA 



O CP/M, um dos mais populares sistemasjpperacionais para Micro- 
computadorejs e o TRSDOS e seus similares, com uma popularidadeequi- 
valente a do CP/M, estao juntos agora no novisiimo N AJ A 800 da Kemi- 
tron.Com issjo, passa a estar dispom'vel para um so computador a mais 
extensa biblipteca de software jamais reunidaj 

O N AJ A 800 tem um de sign que acompanha as mais recentes tenden- 
cias mundiaisTvroLoTtSW : g^E€f= APC u les taca d os. O seu video, um mo- 
nitor de op e r a 80X24, 40X24, 64X1 6 

e 32X1 6,em reverso. Sua CPU Jem com dois drives de 5 

1/4” embutidose possui 5 slots para conexaodelexpansoes. Sua memo- 
ria principal possui 1 28K em RAM e 1 4K em EPROM, onde esta gravado 
o interpr etador b asic. O teclado 6 do tipo qwert com 7qteclasjeonumeri- 
co i «■< In/ i^rP^TTf^TTm. Iii ^ ‘trio immrama veis oel o usua rioift — — 

Alem oqs sistemas operacionals7i : ^^n€t6FFadps,|cr^ 
meiro equipamento brasileiro a operar com o novissimo CP/M 3. 0 da Dl- 
gital Research. 

Opcionalmente o NAJA 800 pode serequipadocom placa dealta reso- 
lugao grafica (640X240 pontos), disco rigido tipo Winchester, disco de 
8”, comunicagao serial e sintetizador de voz. 



LTDfl. 



A V. C0NT0RN0. 6048 - SAVASSI - BELO HORIZONTE - MG 
TEL (031)225-0644 
TELEX: (031) 3074 KEM BR 





>r* 



1290 PRINT 9 PC<J>, NCS(J);" * " , STR INGS ( TC( J ) , " 
1300 NEXT J 

1310 IF NM(I)-0 THEN 1350 
1320 FOR J«1 TO NM<I) 

1330 PRINT 3 PM<I,J), CMS (I , J > , 

1340 NEXT J 
1330 RETURN 
1360 ' 

1370 ’ 

1300 

1390 ROTINAS OE ACESSO «*» 

1400 
1410 r 



STS ) ) >STS THEN 2360 ELSE 2370 

2320 IF CVI(CHS)-CVKSTS) THEN 2350 ELSE IF CVI ( CHS ) >CVI ( STS ) TH 
EN 2360 ELSE 2370 

2330 IF CVS( CHS > “CVS (STS ) THEN 2350 ELSE IF CVS (CHS) > CVS (STS) TH 
EN 2360 ELSE 2370 

2340 IF CVD ( CHS ) =CVD( STS ) THEN 2350 ELSE IF CV0( CHS ) >CVD( STS ) TH 
FN 2360 ELSE 2370 

2350 IF E4-0 THEN 2370 ELSE NF-E4* GOTO 2400 
2360 II-El* GOTO 2280 
2370 II-E2* GOTO 2280 

2380 '»»**» PEGA 0 REGISTRO INDICE •»*•« 

2390 GET ID , 1 1 * El-CVI (EtS ) XE2-CVI ( E2S ) *E3«CVI (E3S ) *E4=CVI (E4S ) 
2400 RETURN 



1420 '«••«•«•»«•»•»««»«« 

1430 '•*• PRIMEIRA «** 

1440 

1450 'Entra* ID. F7 

1460 'Sal* NF, II. El, E2, E3, E4, CHS, ER , CCSO 
1470 'Destroi * II 

1480 r 

1490 ER-l: IF NOT F7 THEN IF FIM-1 THEN RETURN ELSE NF-1 » ER-O* 
GOTO 2480 

1500 IF RAIZ-0 THEN RETURN 

1510 II-II* II-RAIZ 'Aponta para o no raiz 

1520 GOSUB 2390 'Le registro 

1530 IF ElOO THEN II-El* GOTO 1520 

1540 IF E4-0 THEN 1790 

1550 NF-E4I ER-O* GOTO 2400 

1560 

1570 '*•«* ULTIMA 

1580 ’»«•••««••»»•»««» 

1590 'Entra* ID, F7 

1600 'Sal* NF, II, El, E2, E3, E4. CHS, ER, CCSO 
1610 'Destroi* II 

1620 * 

1630 ER-li IF NOT F7 THEN IF FIM-1 THEN RETURN ELSE NF-FIM-1* ER 
-0* GOTO 2480 

1640 IF RAIZ-0 THEN RETURN 
1650 Il-Ilx II-RAIZ 
1660 GOSUB 2390 

1670 IF E2O0 THEN II-E2I GOTO 1660 
1680 IF E4-0 THEN 1920 
1690 NF-E4I ER-Oi GOTO 2480 

1700 mm 

1710 '*•» PROXIMA 
1720 '*#*#**#»*«#•••**• 

1730 'Entrai II, ID, E2, E3, F7 

1740 'Sail NF, II, El, E2, E3, E4, CHS, ER , CCSO 
1750 'Destroi* II, IA 

1760 ' 

1770 ER-l i IF NOT F7 THEN IF NF + D-FIM THEN RETURN ELSE NF-NF + i t 
ER-O* GOTO 2480 
1780 Ii-II 

1790 IF E2( >0 THEN II-E2* GOTO 1520 

1800 IA-II* II-E3* IF II-l THEN II-II* GOTO 2390 

1810 GOSUB 2390 

1820 IF Ei-IA THEN IF E4-0 THEN 1790 ELSE NF-E4* ER-O* GOTO 2480 
ELSE 1800 

1030 • 

1840 '•*• ANTERIOR •** 

1850 MM 

1860 'Entra* II, ID, El, E3, F7 

1870 'Sail NF, II, El, E2, E3, E4, CHS. ER , CCSO 
1880 'Destroi* II, IA 

1890 ' 

1900 ER-l* IF NOT F7 THEN IF NF<-1 THEN RETURN ELSE NF-NF-1 * ER- 
0* GOTO 2400 
1910 II-II 

1920 IF ElOO THEN II-El* GOTO 1660 

1930 IA-II* II-E3* IF II-l THEN II-II* GOTO 2390 

1940 GOSUB 2390 

1950 IF E2-IA THEN IF E4-0 THEN 1920 ELSE NF-E4J ER-O* GOTO 2480 
ELSE 1930 

I960 'MMMMMMMM 

1970 '•»* INCLUI 

1980 MMMMMMMM 
1990 'Entra* ID, CCSO. NF, CH, F7 
2000 'Sail II 
2010 'Destroi* FF 

2020 r 

2030 GOSUB 2590* IF NOT F7 THEN RETURN 
2040 FF-LOF ( ID ) +1 

2050 IF RAIZ-0 THEN LSET E1S-MK IS(FF) * II-l* RAIZ-2* GOTO 2160 
2060 II-RAIZ 
2070 GOSUB 2390 

2080 IF CCS(CH)-CHS THEN IF E4-0 THEN LSET E4S-MK IS(NF ) * PUT ID, 
II* RETURN 

2090 ON TP(CH) GOTO 2100, 2110, 2120, 2130 
2100 IF CCS ( CH ) ( CHS THEN 2150 ELSE 2140 

2110 IF CVI ( CCS ( CH ) ) < CVI ( CHS ) THEN 2150 ELSE 2140 

2120 IF CVS(CCS(CH>> < CVS(CHS) THEN 2150 ELSE 2140 

2130 IF CVD(CCS(CH) ) < CVD(CHS) THEN 2150 

2140 IF E2O0 THEN II-E2* GOTO 2070 ELSE LSET E2S-MK IS(FF > * GOTO 
2160 

2150 IF ElOO THEN II-El* GOTO 2070 ELSE LSET EIS-MKIS(FF) 

2160 PUT ID, II 

2170 LSET E 1S-MK IS ( 0 ) * LSET E2S-E1S* LSET E3S»MKIS(II) 

2180 LSET E4S-MK IS ( NF ) * LSET CHS-CCS(CH)* PUT ID.FF 
2190 II-FF* GOTO 2390 
2200 MMMMMM.MIM 
2210 '««« PESQUISA ««<* 

2220 'mm 

2230 'Entra* RAIZ. ID, STS 

2240 'Sa i * NF. II. El, E2. E3, E4, ER. CCSO 
2250 'Destroi* II 

2260 ' 

2270 ER-O* II-II* II-RAIZ 

2280 IF II-O THEN ER-l* II-II* IF IIOO THEN 2390 ELSE RETURN 
2290 GOSUB 2390 



2410 

2«0 '»•» LEITURA »** 

2430 mimmmmmmm 
2440 'Entra* NA, NF 
2450 'Sai* CCSO, ELO 
2460 'Destroi* I 

2470 ' 

2400 FOR 1-1 TO NA 
2490 GET 1 , NF 
2500 NEXT I 

2510 ELO-CVI (ELOS) * IF ELO-O THEN CCS(0)-"N " ELSE CCS(0)-"S " 
2520 RETURN 

2530 mmmmmmmim 
2540 '»»• ESCRITA 
2550 'MMMMMMMM* 

2560 'Entra* NA, NF, CCSO, ELO 
2570 'Destroi* I 

2580 ' 

2590 LSET ELOS-MK IS(ELO) 

2600 FOR I-i TO NA 
2610 PUT I. NF 
2620 NEXT I 
2630 RETURN 
2640 ' 

2650 ' 

2660 '**•*»«**•**»***» 

2670 AVAL I A 

2680 

2690 'Entra* CMO, RLO, CTSO, LGO , TP ( ) , CCSO 
2700 'Sal* F3 - Result ado da avaliacao 
2710 'Destroi* I, OPS, F4 

2720 ' 

2730 1-0* F3-0* OPS-"*-" 

2740 F4-0 

2750 ON TP ( CM( I ) ) GOTO 2860, 2760, 2770, 2780 
2760 Vm-CVI(CCS(CM(I>) ) * V2B-CVI (CTS(I))* GOTO 2790 
2770 V1R-CVS(CCS(CH(I)>)« V2B-CVS ( CTS (I ) ) * GOTO 2790 
2780 ViM-CVD<CCS(CMd>>>* V2B-CV0(CTS( I ) > 

2790 ON RL ( I ) GOTO 2000, 2810, 2820, 2830, 2840, 2850 

2800 IF V1R - V2B THEN F4— 1* GOTO 2930 ELSE 2930 

2810 IF Via <> V2a THEN F4— 1* GOTO 2930 ELSE 2930 

2820 IF Via < V2a THEN F4— 1 * GOTO 2930 ELSE 2930 

2830 IF Via (« V2a THEN F4— 1* GOTO 2930 ELSE 2930 

2840 IF Via > V2a THEN F4— 1 * GOTO 2930 ELSE 2930 

2850 IF Via >- V2a THEN F4— 1 * GOTO 2930 ELSE 2930 

2860 ON RL ( I ) GOTO 2870, 2880, 2890, 2900, 2910, 2920 

2870 IF CCS ( CM ( I ) ) - CTS(I) THEN F4— 1* GOTO 2930 ELSE 2930 

2880 IF CCS( CM( I ) ) <> CTS(I) THEN F4— 1* GOTO 2930 ELSE 2930 

2890 IF CCS( CM( I ) ) < CTS(I) THEN F4— 1* GOTO 2930 ELSE 2930 

2900 IF CCS( CM( I ) ) (- CTS(I) THEN F4— 1* GOTO 2930 ELSE 2930 

2910 IF CCS(CM(I)) > CTS ( I ) THEN F4--1* GOTO 2930 ELSE 2930 

2920 IF CCS(CM(I)> >- CTSd) THEN F4 — 1 

2930 IF OPS-"." THEN F3-(F3 AND F4) ELSE F3-(F3 OR F4) 

2940 OPS-CHRS(LG( I > > 

2950 IF 0PS-"F" THEN RETURN 
2960 I-I-H* GOTO 2740 

2970 * him 

2980 '*•* EXPRESSAO 

2990 MMMMMMMIMM 

3000 'Entra* TCO, TESO 

3010 'Sai* F2, CMO, RLO, CTSO, LGO 

3020 'Destroi* K, PL, LL, I, ECS. ER 

3030 ' 

3040 LINE INPUT "CONDICAO - ", ECS 
3050 IF ECS-"" THEN F2-0* RETURN 
3060 K-0* F2--1 * PL-1* LL-LEN(ECS) 

3070 GOSUB 3350 

3080 IF EROO THEN GOTO 3250 

3090 CM(K)-J 'Numero do campo 

3100 IF TKS«"»" THEN 1-1 ELSE IF TKS-"<>" THEN 1-2 ELSE IF TKS-" 

<" THEN 1-3 ELSE IF TKS-"<-" THEN 1-4 ELSE IF TKS«">" THEN 1-5 E 

LSE IF TKS-" >-" THEN 1-6 ELSE ER-7* GOTO 3250 

3110 RL ( K ) -I 

3120 GOSUB 3580 

3130 IF TKS< >"S" THEN 3170 

3140 I -TC ( CM( K ) ) 

3150 IF LEN(STS) < I THEN STS-STS+STR INGS( I-LEN(STS) ," ") ELSE STS 
-LEFTS(STS.I) 

3160 GOTO 3190 

3170 IF TKS< >"N" THEN ER-8* GOTO 3250 

3180 I-TP (CM(K ) ) * IF 1-2 THEN STS-MK I S( VAL ( STS ) ) ELSE IF 1-3 THE 
N STS-MK SS< VAL ( STS ) ) ELSE STS-MKOS ( VAL ( STS ) ) 

3190 CTS ( K ) -STS 
3200 GOSUB 3580 

3210 IF TKS( " AND TKS( >"♦" AND TKS< >"F" THEN ER-9*G0T0 3250 
3220 LGOO-ASC(TKS) 

3230 IF TKS< >"F" THEN K-K+l* GOSUB 3370* GOTO 3080 
3240 RETURN 

3250 PRINT STR INGS( PL + 9, " ">, CHRS(94), " ERROH! - ", TES(ER) 
3260 GOTO 3040 

3270 

3280 '*«« CAMPO ***» 

3290 '•«»«•»«»«»«•»»» 

3300 'Entra* Pl(), P2(), NCSO, ECS, PL. LL 
3310 'Sai* ER - Cod i go do erro OU 
3320 ' J Indtce do campo na tabela 



2300 ON TP(CH) GOTO 2310,2320,2330,2340 

2310 IF LEFTS(CHS,LEN(STS) )-STS THEN 2350 ELSE IF LEFTS ( CHS , LEN( 
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3350 GOSUB 3970 
3360 ER =0 
3370 GOSUB 3580 

3380 IF TKS< >"I" THEN ER-2* RETURN 
3390 RS-STS 'Salva o none do campo 
3400 GOSUR 3580 

3410 IF TKS< >"(" THEN 1*1 t GOTO 3490 
3420 GOSUB 3580 

3430 IF TKS< >"N" THEN ER-4* RETURN 
3440 I -VAL < STS ) 

3450 IF 1(1 OR I >NP THEN ER-4* RETURN 
3460 GOSUB 3580 

3470 IF TKS< >" ) " THEN ER-A* RETURN 
3480 GOSUB 3580 

3490 FOR J-PiCI)f(I-l) TO P2(I) 

3500 IF NCS(J)»RS THEN RETURN 

3510 NEXT J 

3520 ER-3* RETURN 

3530 mm 

3540 ’**•• TOKEN <•** 

3550 'mm. 

3560 'Sai* TKS - Tipo do token, STS - Token 

3570 ' 

3580 IF CS-" " THEN GOSUB 3970* GOTO 3580 
3590 STS-""* TKS="I" 

3600 IF CSO"'" THEN 3640 
3610 CAMPO ENTRE PLICS 

3620 GOSUB 3970* IF CS- OR CS-CHRS(O) THEN GOSUB 3970* RETURN 

3630 STS-STS+CS* GOTO 3620 

3640 IF ( CS< "A" OR CS>"Z") AND (CS<"a" OR CS)"z") THEN 3680 

3650 '••• CAMPO 

3660 STS-STS+CS* GOSUB 3970 

3670 IF (CS("0" OR CS>"9") AND (CS("A" OR CS>"Z") AND (CS<"a" 0 
CS > " r" > THEN RETURN FL Sf 3660 
3680 IF (CS<"0" OR CS>"9") AND CSO"-" THEN 3770 
3690 '••• NUMERO 

3700 TKS«"N" 

3710 STS-STS+CS * GOSUB 3970 

3720 IF CS>-"0" AND CS(-"9" THEN 3710 

3730 IF CSO"." THEN RETURN 

3740 STS-STS+CS 

3750 GOSUB 3970* IF CS>»"0" AND CS<«"9" THEN 3740 
3760 RETURN 

3770 IF CS( >CHRS( 34 ) THEN 3810 
3780 '•»• STRING 

3790 GOSUB 3970* IF CS*CHRS(34) OR CS-CHRS(O) THEN GOSUB 3970* T 

K S-"S" * RETURN 

3800 STS-STS*CS* GOTO 3790 

3810 IF CSO"<" THEN 3860 

3820 GOSUB 3970 

3830 IF CS-">" THEN GOSUB 3970* TKS-"(>"* RETURN 
3840 IF CS-"-" THEN GOSUB 3970* TKS-"(«"s RETURN 
3850 T K S = " ( " * RETURN- 
3860 IF CS()">" THEN 3880 

3070 GOSUB 3970* IF CS-"»" THEN GOSUB 3970* TKS-")-"* RETURN ELS 
E TKS*")"* RETURN 

3880 IF CSOCHRS(O) THEN TKS-CS* ELSE TKS»"F" 

3890 GOSUB 3970* RETURN 

3900 * 

3910 '«»» CARACTERF •** 

3920 'MMMMMMMMMI 
3930 'Entra* ECS, PL, LL 

3940 ’Sai* CS - Proximo caractere na cadeia de entrada 
3950 'Incrementa* PL 

3960 * 

3970 IF PL >LL THEN CS*CHRS(0)* RETURN 
3980 CS*M IDS (ECS, PL, l )* PL-PLM* RETURN 

3990 

4000 LE DESCRICAO DA FICHA NO DISCO 

4010 I MMMMM MMM MM. 

4020 'Sai* NP, Pl(), P2(), NMO, PM(,), CMS(,), PCO, NCSO 
4030 ’ TPO, TCO, DCO, FMSO 

4040 'Destroi* I, J 

4050 ' 

4060 INPUT ai, NP 
4070 FOR 1-1 TO NP 

4080 INPUT ai. Pld), P2 (I ) , NM( I > 

4090 IF NM < I ) =0 THEN 4110 

4100 FOR J=1 TO NM d > * INPUT ai , PM(I,J>, CMS<I,J>* NEXT J 
4110 NEXT I 

4120 FOR 1 = 1 TO P2 ( NP > 

4130 INPUT ai. PC(I), NCS ( I ) , TP C I ) , TC(I), DC(I> 

4140 IF TP < I ) < > 1 THEN IF DC(I)<>0 THEN FMS( I >-STR INGS( TC( I )-DC( I 
)-l ,"B">*"."*STRINGS(DCd) ,"a"> ELSE FMS ( I ) =STR INGS ( TC( I ) , ' B" > 
4150 NEXT I 
4160 RETURN 

4170 'MMMMMMMMMMM.MMMMMMMMMMMM 
4180 '••• ESCREVE A DESCRICAO DA FICHA NO DISCO ••• 

4190 

4200 'Entra* NP , Pl(), P2(>, NMO, PM(,), CMS(,>, PCO, 

4210 ’ NCSO, TPO, TCO, DCO 

4220 'Destroi* I, J 

4230 ' 

4240 PR INT ai , NP 
4250 FOR 1-1 TO NP 

4260 PRINT ai, Pl(I); P2 (I ) ; NMd > 

4270 IF NM( l ) =0 THEN 4290 

4280 FOR J«1 TO NM< I ) * PRINT Bl. PM(I.J); CHRS(34); CMS(I.J); CH 
RS < 34 ) * NEXT J 
4290 NEXT I 

4300 FOR 1-1 TO P2(NP> 

4310 PRINT ai , PC ( I ) ; CHRS(34); NCS(I); CHRS(34)t TP(I); TCd); 
DC( I ) 

4320 NEXT I 
4330 RETURN 

4340 

4350 CRIA A DESCRICAO DOS AROUIVOS •••» 

4360 * - 

4370 'Entra* NP , P?(>, TCO, TPO, TTO 
4380 'Sat* NA. TAO. NCO 



4410 TA( 1 )*0* NC < 1 ) -O 

4420 NA-1 'Numero de arguivos de dados usados no banco 
4430 FOR .1—0 TO P2(NP > 

4440 IF TP(J)-1 THFN TC=TC(j) El SF TC=TT<TP<J)> 

4450 IF TA(NA) dC >255 THFN NA-NAM * TA<NA>=0* NC(NA>-0 

4460 T A < NA ) = T A < NA ) ♦ TC 

4470 NC ( NA > =NC < HA ) ♦ 1 

4480 NEXT J 

4490 RETURN 

4500 ' MMMMM 

4510 '««« ABRE 05 AROUIVOS DE DADOS »*• 

4520 * 

4530 'Frit r a : BCS. NA. NCO, TAO. TPO, TCO, TTO, IDS 
4540 'Sai* FIM. IV 

4550 'Destroi* K, I, ID, J, TC , CH, ID 

4560 * 

4570 K=0 

4500 FOR 1*1 TO NA 

4590 OPEN "R",I,BCS*"/DT"4CHRS(47d>,TAO> 

4600 TD-0 

4610 FOR J-l TO NC(I) 

4620 IF TP ( K ) -1 THEN TC-TC(K) ELSF TOTT(TP(K>> 

4630 FiriD I, TDX AS DUMMYS. TCX AS CCS<K) 

4640 TD = TD* TC* K-KM 
4650 NEXT J 
4660 NEXT I 

4670 FIELD i. 2 AS El OS 

4680 F IM-LOF ( 1 ) * IF F1M-0 THEN riM=l* LV— 1 ELSE GET l.FIM* LV-C 
VI (FLOS) 

4690 F 6*0 * RETURN 

4 00 I MMMMM. 

4710 '••• ABRF 0 AROUIVO OF INDICES »«• 

4720 * 

4730 'Entra* NA. IDS, TPO, TTO, TCO 
4740 'Sai* CH. F7. ID. RAIZ 
4/50 'Destroi* I 

4760 ' 

4770 ID=NAf2* OPEN "R" , ID , IDS*"/ IDX" , 8 

4780 FIELD ID, 2 AS E1S, 4 AS DUMMYS. 2 AS E4S 

4/90 IF 1 OF (ID) =0 THEN CLOSE ID* KILL IDS*"/IDX": F7-0* RETURN 
4800 GET ID , 1 * RAIZ-CVI (E1S) * CH-CVI ( F4S ) * CLOSE ID 
4810 IF TP (CH) < > 1 THEN I=TT(TP<CH)> ELSE I-TC(CH) 

4820 OPEN "R" , ID, IDS+"/IDX" ,8+1 

4830 FIELD ID, 2 AS E1S, 2 AS E2S, 2 AS E3S , 2 AS E4S. IX AS CHS 
4840 F7- i : RETURN 
4050 ’MM.M..MMM 
4860 FECHA •«« 

4870 ’ MMMMM 

4880 'Entra* FIM. LV 

4890 ' 

4900 LSET FLOS-MK I S ( LV ) 

4910 PUT ai . FIM 

4920 CLOSE* BCS-""* F6--1 

4930 '.M...M..MMMM..MMMMMMMM 

4940 ’••• FECHA 0 AROUIVO OE INDICES 

4950 ’ mm 

4960 IF NOT F7 THFN RETURN 
4970 CLOSE ID* IDS-"" 

4980 F7-0 
4990 RF TURN 
5000 ' 

5010 ' 

5020 mm mm 

5030 '••• AD IC IONA »•» 

5040 

5050 IF F7 AND 0-2 THEN FR-17: GOTO 10510 

5060 IF 0-2 AND LV< >-l THEN NF-LV* GOSUB 2480* LV-ELO ELSE NF =F I 
Ms FIM-FIMM 

5070 GOSUB 10870* 1*1 * GOSUB 500* ELO-O 
5080 GOSUB 2030 'Inclui no arguivo 

5090 PRINT 3944, "MAIS DADOS'/",: K-956* TM-l* GOSUB 860 

5100 IF RS-"S" OR RS-"*" THEN 5060 ELSE IF RS< >"N" AND RS< >"n" T 

HEN GOSUB 10700* GOTO 5090 

5110 RETURN 

5120 mm 

5130 '••* EDITA •*« 

5140 MMM 

5150 GOSUB 1490 'Primeira ficha 
5160 IF EROO THEN 10510 
5170 1-1 

5180 GOSUB 1270 'Display format a 
5190 GOSUB 1020 'Display dados 

5200 PRINT 3944. "DIG l TE COMANDO"; 31008, "<9> P/SOCORRO 
5210 CS-INKEYS: IE CS-"" THEN 5210 

5220 ON INSTR < C2S , CS > ♦ 1 GOTO 5320 . 5340 , 5390 , 5230 , 5240 , 5250 . 5660 . 
5260 , 5280 , 5440 ,5440, 5300 , 5300 ,5310,5310, 5550 , 5550 
5230 RETURN .'(ENTER) 

5240 GOSUB 1490* GOTO 5170 '<;> 

5250 GOSUB 1630* GOTO 5170 '(/> 

5260 1 = 1-1* IF K1 THEN I-NP '(Ctr1> + <U> 

5270 GOTO 5180 

5280 I — I ♦ 1 * IF l >NP THEN 1 = 1 '<Ctrl>*<Z> 

5290 GOTO 5180 

5^00 IF El.0-0 THEN LSET El 0S=MK I S ( LV ) * PUT 1,NF* LV-NF * GOSUB 24 
80 - GOTO 5170 ELSE 5210 ’(A) 

5310 IE ELOOO THEN 5480 ELSE 5210 '<R> 

5320 GOSUB 10700* GOTO 5210 'Comando invalido 

5330 ' FICHA ANTERIOR 

5340 GOSUB 1900 

5350 IE ER-O THEN 5170 

5360 GOSUB 10700* PRINT 31008, "Pr ime ira ficha",: FOR K=1 10 400* 
NEXT K 

5370 GOTO 5200 

5380 ' PROXIMA FICHA 

5390 GOSUB 1770 

5400 IF ER-O THEN 5170 

5410 GOSUB 10700* PRINT 31 008 . "U1 t i ma ficha ";* FOR K=» TO 400* 
NEXT K 

5420 GOTO 5200 

■ m » » « ’iii.- • • • 
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UM GERENTE PRATICO EM BANCO DE DADOS 

5440 J»i« GOSUB 500 

5450 IF F7 THEN IF CC*(CHX)CH* THEN LSET E4*=MKI*<0): PUT ID, II 

i GOSUB 2030 ELSE GOSUB 2590 ELSE GOSUB 2590 

5460 GOTO 5170 

5470 ' • •• RECUPERA • 

5480 I 1-ELO: LSET ELO*=MK 11(0): PUT 1,NF 
5490 Jl-NF: NF-LV 'Salva o numero da ficha p» J1 
5500 IF NF-J1 THEN LV-Ii: GOSUB 2400s GOTO 5170 
5510 GOSUB 2480 

5520 IF ELO* Jl THEN LSET ELO*-MK I * ( I 1 ) : PUT l.NFs NF-Jl: GOSUB 2 

400* GOTO 5170 

5530 NF-ELO: GOTO 5510 

5540 ' PESQUISA • 

5550 IF NOT F7 THEN ER-18: GOSUB 10510: GOTO 5170 

5560 CLS: GOSUB 1150 

5570 PRINT 3256, "CHAVE -": K-264: TM-TC(CH): GOSUB 860 

5500 ON TP < CH > GOTO 5590,5600,5610,5620 

5590 ST*»R*: GOTO 5630 

5600 ST*=MKI*(VAL(R*) > : GOTO 5630 

5610 ST*=MKS*(VAL(R*) ) : GOTO 5630 

5620 ST*=MKD*(VAL <R*) ) 

5630 GOSUB 2270: IF ER-0 THEN 5170 

5640 PRINT 3512, "Nao encontrei": FOR KX-1 TO 500: NEXT K 
5650 GOTO 5170 
f 5660 CLS '<?> 

1 5670 PRINT T AB < 26 > > "COMANDOS" : PRINT 

5680 PRINT TAB(5),"<r> - Ficha anlrnor" 

5690 PRINT TA8<5) ,"<LF> - Proxima ficha" 

5700 PRINT TAB<5) ,"<Ctr 1 >XW> - Tela anterior" 

5710 PRINT TAB<5) ,"<Ctr 1 )XZ> - ProKiaa tela" 

5720 PRINT TAB<5),"<,> - Primeira ficha" 

5730 PRINT TA8<5),"</> - Ultima ficha" 

5740 PRINT TAB(5),"<E> - Edita a ficha" 

5750 PRINT TAB (5) , " < A > - Apaga a ficha" 

5760 PRINT TA8<5),"<R> - Recupera uma ficha apagada" 

5770 PRINT TAB(5);"<F> - Pesguisa por campo chave" 

5780 PRINT TAB (5) ;"<ENTER > - Retorna ao menu principal" 

5790 PRINT: PRINT TAB<10), "DIGITE QUALQUER TECLA PARA KETORNAR' 

» 

5000 C*-INKEY*: IF C*-"" THEN 5800 ELSE 5100 

5810 

5820 '•«• ABRE/CRIA BANCO ••• 

5030 

5840 'Sa 1 * BC*. NP , Pl(), P2(), NM<), PM(,>, CM*(,) 

5850 * NA, TAO, NCO, NC*<>, PCO, TP < ) , TC< > , DCO, FM*0 

5860 'Destroi: I, J, K, J1 , EC*, LL , PI 

5870 f 

5880 IF NOT F6 THEN GOSUB 4900: PRINT 3907,' ", 

5890 GOSUB 6710 

5900 NC*(0)-"APAGAD0?"» TP<0)-1: TC<0)-2: K-l 
5910 ON ERROR GOTO 5960 

5920 OPEN "I",l.BC*+"/DSC" l 

5930 ON ERROR GOTO O . 

5940 GOSUB 4060 'Le desert cao da ficha 
5950 GOTO 6620 

5960 RESUME 5970 , . 

5970 ON ERROR GOTO 0 

5980 PRINT 3704.,: INPUT "0 BANCO NAO EXISTE. QUER CRIA-LC* , R* 
5990 IF R*="N" OR R*="n" THEN BC*-"": RETURN ELSE IF R*< >"S" AND 
R%< >"s" THEN 5980 

6000 CLS: PRINT: INPUT "NUMERO DE TELAS", NP 

6010 IF NP < 1 OR NP > 10 THEN 6000 

6020 P2(0>«0 

6030 FOR t-1 TO NP 

6040 PI < I )«P2(I-1 XI 

6050 PRINT TAB (25) , "TFl A M 

6060 PRINT "W CAMPO NOME, POSICAO, TIPO, TAMANHO. DECIMAIS" 

6070 FOR J-PXI) TO 200 

6080 PRINT USING "MUM: ", J, 

6090 LINE INPUT EC* 

6100 IF EC*=" . " THEN 6450 

6110 IF EC*="*>" THEN PRINT TAB < 12 )," '"+NC*< J X"'," ,PC ( J) TP* 

<TP< J) ) ,",",TC< J), : IF TP ( J > * l THEN PRINT: GOTO 6080 ELSE PRINT 

" , " , DC < J ) : GOTO 6080 

6120 IF EC*< >"♦" THFN 6160 

6130 FOR J1 =200 TO J*l STEP -1 

6140 DCtJl )=DC( Jl-1): FM*C J1 > -FM*C Jl- 1 > I NC*< Jl >-NC*< Jl-1 > : PC(J 

1 ) -PC< Jl -1 ) : TC< J1)«TC(J1-1 >* TP< Jl )=TP< Jl-1 >: NEXT Jl 

6150 DC < Jl > =0: FM*(Jl)-""» NC*(J1)»"": PC(Jl)-0: TC(Jl)-0: TP(J1 

>-0: GOTO 6080 

6160 IF EC*< THEN 6200 

6170 FOR Jl-J TO 199 

6180 DC < J 1 ) “DC ( J 1 + 1 ) : FM*( Jl )-FM*< Jl+1 ) : NC*( Jl )-NC*< JX1 ) : PC<J 
1 > -PC < Jl ♦ 1 > : TC<J1>-TC< JIM >: TP( Jl >=TP< JIM) 

6190 NEXT Jl: GOTO 6150 

6200 LL«LEN(EC*X PL-1 

6210 IF LL -0 THEN 6440 

6220 GOSUB 3970: GOSUB 3580 

6230 IF TK*< >"I" THEN 6290 ELSE NC*(J>»ST* 

6240 GOSUB 3580 

6250 IF J-Pl(I) THEN 6290 

6260 FOR Jl— Pi < IXO-l > TO J-l 

6270 IF NC*< Jl )=NC*< J) THEN ER-10: GOTO 6660 

6280 NEXT Jl 

6290 IF NC*< J)-"" THEN ER-2: GOTO 6660 
6300 IF T K * ( > " , " THEN 6650 ELSE GOSUB 3580 
6310 IF TK*="N" THEN PC < J ) -VAL < ST* ) : GOSUB 3580 
6320 IF PC< J) < 64 OR PC(J)>832 THEN ER-14: GOTO 6660 
6330 IF TK*< >" , " THEN 6650 ELSE GOSUB 3580 

6340 K-INSTR ( "*X » R" . TK* > : IF KOO THEN TP(J)-K: GOSUB 3580 

6350 IF TK *(>"," THEN 6650 ELSE GOSUB 3580 

6360 IF TK*«"N" THEN TC < J ) = VAl < ST* > : GOSUB 3500 

6370 IF TC< J) < 1 OR TC(J)>255 THEN ER-15: GOTO 6660 

6380 IF TP ( J>- 1 THEN 6430 

6390 IF T K * < > " , " 1 HEN 6650 ELSE GOSUB 3580 

6400 IF TK*-"N' THEN DC < J ) -UAL < ST* > : GOSUB 3580 

6410 IF DC< J) -l >TC( J) OR DC(.J)(0 THEN ER-15: GOTO 6660 

6420 IF DC ( J) < >0 THEN FM* < J ) =STR I NG* ( TC ( J ) DC ( J ) - 1 , "M" ) ♦ ">STR I 

NG*(DC( J) , Ml ELSE FM*( J)-STRING*< TC( J) , "M' ) 

6430 IF TK*< >"F" THEN PRINT "Extra ignorado" 



6450 P2< I ) = J-1 

6460 IF P2< IXPKI > THEN PRINT "A TELA DEVE TER PELO MENOS 1 CAM 
PO": GOTO 6050 

6470 INPUT "NUMERO DE MENSAGENS NESTA TELA", NM<I> 

6400 IF NM <1X0 OR NM(I)>10 THEN 6470 
6490 IF NM< I )-0 THEN 6540 
6500 FOR J«1 TO NM(I) 

6510 INPUT "POSICAO DA MENSAGEM", PM(I,J) 

6520 INPUT "CONTEUDO DA MENSAGEM", CM*(I,J> 

6530 NEXT J 

6540 GOSUB 1270 'MOSTRA A TELA N I 

6550 GOSUB 1150 

6560 PRINT 3946, "GOSTOU?", 

6570 K = 954 : TM=1 : GOSUB 860 

6580 IF R*="N" OR R*»"n" THEN CLS: GOTO 6050 ELSE IF R*< >"S" AND 
R*< >"a" THEN 6560 
6590 CLS: NEXT I 
6600 OPEN "0",i ,BC**"/DSC" 

6610 *GOSUB 4240 .'Grava a descricao da ficha 
6620 CLOSE 1 

6630 GOSUB 4410 'Cr I a a descricao dos arguivos 
6640 GOTO 4570 'Abre os arguivos e retorna 
6650 ER-13 

6660 PRINT STR ING* < PL + 9 , " ">« CHR*(94), " ERROMI - ", TE* ( ER ) 
6670 GO i 0 6080 

6600 «««•« 

6690 '»*« LE 0 NOME DO BANCO ••• 

6700 

6710 K-907 : TM-8: GOSUB 860 

6720 GOSUB 6830: IF EROO THEN PRINT 3K , " ",: GOTO 6710 

6730 BC*=R* : RETURN 

6740 ’»««»««*»«»««««« 

6750 '*•• LE 0 NOME DO ARQUIVO INDICE 

6760 

6770 K-97 1 : TM-8: GOSUB 860 

6780 GOSUB 6830: IF EROO THEN PRINT 8K , " ",l GOTO 6770 

6790 ID*=R* : RETURN 

6800 

6810 '••• CRITICA 0 NOME DO ARQUIVO »»• 

6820 IIMM#ili.».*..OM».lt....»##.il##t.M 

6830 ER-Oi IF LEN(R*)=0 THEN ER-1: RETURN 
6840 FOR 1-1 TO LEN<R*> 

6850 C*=MID*(R* , 1,1) 

6060 IF 1-1 THEN IF C*<"A" OR C*)"Z" THEN ER-i: GOTO 6880 
6870 IF C*<"0" OR (C*>"9" AND C*<"A") OR C*)"Z" THEN ER-1 
6800 NEXT I 
6090 RETURN 

6900 

6910 '•** MODIFICAR DESCRICAO DO BANCO *«• 

6920 

6930 IF F6 THEN ER-12: GOTO 10510 
6940 CLS: GOSUB 1150 

6950 PRINT 3278, "»*« ATENCAO **«" 

6960 PRINT TAB (5), "A MODIFICACAO DA DESCRICAO DO BANCO DE DADOS 
APAGA" 

6970 PRINT TAB <5>"T0D0S OS DADOS GRAVADOS.": PRINT 

6980 R*»""* PRINT TAB<15>,: INPUT "CONFIRME A SUA DESCISAO <S/N> 

", R* 

6990 IF R*»"N" OR R*»"n" THEN RETURN ELSE IF R*< >"S" AND R*( >"s" 
THEN 6980 

7000 GOSUB 7080: 8C*«R* 

7010 GOTO 6000 
7020 

7030 '*•« APAGAR 0 BANCO DE DADOS ••• 

7040 

7050 IF F6 THEN ER-12: GOTO 10510 

7060 PRINT 3640,,: INPUT "APAGAR 0 BANCO DE DADOS??? CONFIRME. 
<S/N>", R* 

7070 IF R*-"N" OR R*»"n" THEN RETURN ELSE IF R*<>"S" AND R*< >"*" 
THEN 7060 
7080 R*=BC* 

7090 GOSUB 4900 

7100 ON ERROR GOTO 7170 

7110 KILL R*+"/DSC" 

7120 FOR 1*1 TO NA 

7130 KILL R*+"/DT" + CHR* < 47+ 1 ) 

7140 NEXT I 

7150 ON ERROR GOTO 0 

7160 RETURN 

7170 RESUME NEXT 

7180 

7190 '••• DESCRICAO DA IMPRESSAO ••• 

7200 '**»»***•* »««•««•«» •••««•• 

7210 FM*NA^i: F5-0: CLS: GOSUB 1150 
7220 PRINT 3192, "ARQUIVO DE FORMATO » " 

7230 K-213: TM*8: GOSUB 060: GOSUB 6830: IF EROO THEN PRINT 3K . 

" "I GOTO 7230 ELSE FM*-R* 

7240 ON ERROR GOTO 7300 
7250 OPEN "I",FM,FM**"/FMT" 

7260 ON ERROR GOTO 0 

7270 PRINT 3256, "ESTE ARQUIVO JA EXISTE.": INPUT "DESEJA REDEFI 
NI-LO*? (S/N)", R* 

7280 IF R*="N" THEN RETURN ELSE IF R*< >"S" THEN 7270 

7290 CLOSE MFM: GOTO 7320 

7300 RESUME 7310 

7310 ON ERROR GOTO 0 

7320 GOSUB 10780 'APAGA 

7330 GOSUB 7450 'IMPRESSORA 

7340 GOSUB 7600 'RELATOR 10 

7350 GOSUB 9730 'CALCULA N7 e N8 

7360 IF ER THEN 7330 

7370 OPEN "0", FM, FM*+"/FMT" 

7380 GOSUB 10210 
7390 CLOSE MFM 
7400 RETURN 

7410 

7420 '«*• ROTINAS DE LEITURA DE DESCRICOES »»* 

7430 

7440 '«•• LF DESCRICAO DA IMPRESSORA 

7450 CLS: PRINT: PRINT "DESCRICAO DA IMPRESSORA" 

7460 IF F5 THFN PRINT "NUMERO DE COLUNAS*": CO 
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7470 INPUT "NUMERO DE COLUNAS", CO 

7480 IF F5 THEN PRINT "NUMERO DE LINHAS-", LI 

7490 INPUT "NUMERO DE LINHAS", LI 

7500 IF F5 THEN IF LEN<S1S> THEN PRINT "SEQUENCIA INICIAL*",: FO 
R 1*1 TO LEN < SI* ) * PRINT ASC < MI D* < SI* . 1 , 1 ) ) , " , " , : NEXT I: PRINT 
7510 PRINT "SEOUENCIA INICIAL" 

7520 GOSUB 8410 
7530 Sl*-S* 

7540 IF F5 THEN IF LEN<S2*> THEN PRINT "SEQUENCIA FINAL-",: FOR 
1-1 TO LEN(S2* ) : PRINT ASC ( MI D* < S2* , I , 1 )>,","» * NEXT I: PRINT 
7550 PRINT "SEQUENCIA FINAL" 

7560 GOSUB 8410 
7570 S2*«S* 

7580 RETURN 

7590 '••• LE DESCRICAO DO RELATOR 10 

7600 CLS: PRINT: PRINT "DESCRICAO DO RELATOR 10" 

7610 GOSUB 7670 'CA8ECALH0 
7620 GOSUB 7900 'DETALHE 
7630 GOSUB 8200 'RODAPE ' 

7640 RETURN 

7650 '••• LE DESCRICAO DO CABECALHO 

7660 CLS: PRINT 

7670 PRINT "Cabecalho" 

7480 IF F5 THEN PRINT "NUMERO DE LINHAS NO CABECALHO*", N4 

7690 INPUT "NUMERO DE LINHAS NO CABECALHO", N4 

7700 IF N4< 0 OR N4>10 THEN 7690 

7710 IF N4*0 THEN RETURN 

7720 FOR Jl-1 TO N4 

7730 PRINT "LINHA", Jl 

7740 IF F5 THEN PRINT "TABULACAO-" , T4 ( Jl ) 

7750 INPUT "TABULACAO", T4(J1) 

7760 IF F5 THFN PRINT "CONTEUDO-", L4*<J1) 

7770 INPUT "CONTEUDO", L4*(J1> 

7780 NEXT Jl 

7790 INPUT "IMPRIMIR CONTADOR DE PAGINAS NO CABECALHO" ,R* 

7800 IF R*»"N" THEN N1=0: GOTO 7870 ELSE IF R*<)"S" THEN 7790 
7810 IF F5 THEN PRINT "NUMERO DA LINHA DO CONTADOR-", Ni 
7820 INPUT "NUMERO DA LINHA DO CONTADOR", Nl 
7830 IF NXl OR Nl >N4 THEN 7820 

7840 IF F5 THEN PRINT "NUMERO DA COLUNA DO CONTADOR-", Cl 

7850 INPUT "NUMERO DA COLUNA DO CONTADOR", Cl 

7860 .IF Ci + 11 >T4<M1 > THEN IF Cl < T4(N1 XLEN<L4*<N1 ) > THEN 7850 
7870 RETURN 

7880 '*•• LE DESCRICAO DO DETALHE 
7890 CLS: PRINT 
7900 PRINT "Detalhe" 

7910 IF F5 THEN PRINT "NUMERO DE COLUNAS DE DETALHE-", N5 

7920 INPUT "NUMERO DE COLUNAS DE DETALHE", N5 

7930 IF N5< 1 OR N5>50 THEN 7920 
7940 N9-1 

7950 FOR Jl-1 TO N5 
7960 PRINT "COLUNA", Jl 

7970 IF F5 THEN PRINT "TABULACAO-", T5(J1) 

7900 INPUT "TABULACAO", T5(J1> 

7990 IF Jl-1 THEN 8010 

8000 IF T5< J1XT5<J1-1XTC<C3< Jt-1>> THEN N9-N9 + 1: PRINT "CADA F 
ICHA SERA' IMPRESSA EM", N9 , "LINHAS" 

8010 FOR K - 1 TO NP 

8020 IF C5< Jl ) >=P 1 <K ) AND C5< Jl) < -P2CK ) THEN 0040 
8030 NEXT K 

0040 EC*-" '"♦NC*<C5< Jl ) )♦" '< "♦STR* < K >♦")" 

8050 IF F5 THEN PRINT EC* 

8060 LINE INPUT "CAMPO (TELA) - ", EC* 

8070 LL“LEN(EC*) > PL-1 
8080 IF LL-0 THEN 8130 
8090 GOSUB 3350 

8100 IF EROO THEN PRINT "ERRO 1 • • - ", TE*< ER ) s GOTO 8060 
8110 IF TK*<>"F" THEN PRINT "Extra ignorado" 

8120 C5 ( Jl ) « J 
8130 NEXT Jl 

8140 IF F5 THEN PRINT "NUMERO DE LINHAS DE SEPARACAO-", N3 
0150 INPUT "NUMERO OE LINHAS DE SEPARACAO", N3 
8160 IF N3< 0 THEN 8150 
8170 RETURN 

8180 '**• LE DESCRICAO DO RODAPE' 

8190 CLS: PRINT 
8200 PRINT "Rodape 

8210 IF F5 THEN PRINT "NUMERO DE LINHAS DE RODAPE'-", N6 

8220 INPUT "NUMERO DE LINHAS DE RODAPE'", N6 

8230 IF N6< 0 OR N6>10 THEN 8220 

8240 IF N6-0 THEN RETURN 

8250 FOR Jl-1 TO N6 

8260 PRINT "LINHA", Jl 

8270 IF F5 THEN PRINT "TABULACAO-", T6<Ji> 

8200 INPUT "TABULACAO", T6(J1) 

8290 IF F5 THEN PRINT "CONTEUDO-", L6*(Jl) 

8300 INPUT "CONTEUDO", L6*(J1) 

8310 NEXT Jl 

8320 R*-"": INPUT "IMPRIMIR CONTADOR DE PAGINAS NO RODAPE'", R* 
8330 IF R*-"N" THEN N2-0: GOTO 8400 ELSE IF R*< >"S" THEN 8320 
8340 IF F5 THEN PRINT "NUMERO DA LINHA DO CONTADOR-", N2 
8350 INPUT "NUMERO DA LINHA DO CONTADOR", N2 
8360 IF N2< 1 OR N2>N6 THEN 8350 

8370 IF F5 THEN PRINT "NUMERO DA COLUNA DO CONTADOR-", C2 
8380 INPUT "NUMERO DA COLUNA DO CONTADOR", C2 

8390 IF C2+1 1 > T6 < N2 ) THEN IF C2< T6 ( N2 ) ♦LEN( L6* < N2 ) > THEN 8380 
8400 RETURN 
8410 Jl-1 : S*-"" 

0420 PRINT Jl,: C-0 
8430 INPUT C 

8440 IF C-0 THEN 8480 ELSE IF C<0 OR 0255 THEN 8420 
8450 S*-S*+CHRi< C) 

8460 Jl-Jl+i 
8470 GOTO 8420 
8480 RETURN 

0490 

0500 IMPRIMIR ««» 

8510 '•••••••••••-•••-••i 

0520 GOSUB 1490: IF EROO THEN 10510 
8530 FM-NA+i : CLS: GOSUB 1150 

8540 PRINT 3192, "ARQUIVO DE FORMATO -": K-213-: TM = 8: GOSUB 860: 
GOSUB 6830: IF EROO THEN PRINT 3K , " ": GOTO 8540 

355° *F R*-FM* THEN 8610 ELSF FM*-R* 



8560 ON ERROR GOTO 8960 
8570 OPEN "I", FM, FM*+"/FMT" 

8580 ON ERROR GOTO 0 

8590 GOSUB 9890 

8600 CLOSE NFM 

8610 PG-O: Fl =0 : F3--1 

8620 PRINT 3320,,: GOSUB 3040 

0630 PRINT "POSICIONE 0 PAPEL" 

8640 LINE INPUT "DIGITE (ENTER) PARA CONTINUAR", R* 

8650 LPRINT SI*, 

8660 PG-PG+i 

8670 IF N4-0 THEN 8730 

8680 FOR Jl-1 TO N4 

8690 IF Ni- Jl AND C1(T4(J1) THEN LPRINT TAB(Cl),* LPRINT USING '< 
PAGINA PG, 

8700 LPRINT TAB(T4(Ji)>, L4*(J1), 

8710 IF Nl - Jl AND C1>T4(J1) THEN LPRINT TAB(Cl),: LPRINT USING " 

PAGINA M4M", PG ELSE LPRINT 

8720 NEXT Jl 

8730 FOR Jl-l TO N7 

8740 IF Fl THEN LPRINT STR ING* ( N9-1 , 1 3 ) , : GOTO 0840 

0750 IF F2 THEN GOSUB 2730: IF F3 THEN 0780 ELSE ELSE 8780 

8760 GOSUB 1770: IF EROO THEN Fl — 1 

8770 GOTO 8740 

8780 FOR J2-1 TO N5 

8790 IF J2()l THEN IF T5< J£> < T5< J2-1 > ♦TC<C5< J2-1 ) > THEN LPRINT 
8800 LPRINT TAB ( T5< J2 ) ) , * J-C5(J2): K-TP(J) 

8810 IF K-l THEN LPRINT CC*(J), ELSE IF K-2 THEN LPRINT USING FM 
*<J>, CVI(CC*(J>), ELSE IF K-3 THEN LPRINT USING FM»(J), CUS(CC* 
(J)), ELSE LPRINT USING FM*(J), CUD(CC*(J)), 

8820 NEXT J2 

8830 GOSUB 1770: IF EROO TH6N F1--1 

0840 IF J1-N7 THEN LPRINT ELSE LPRINT STR ING* < N3 , 1 3) 

8850 NEXT Jl 

8860 LPRINT STR ING* < N8 . 13 ) , 

0070 IF N6-0 THEN 8930 
0800 FOR Jl-1 TO N6 

8890 IF N2-J1 AND C2<T6(J1) THEN LPRINT TAB(C2),: LPRINT USING " 
PAGINA MM«", PG, 

8900 LPRINT TAB(T6(J1)), L6*(J1), 

8910 IF N2-J1 AND C2)T6(J1) THEN LPRINT TAB(C2),: LPRINT USING " 
PAGINA HK4" , PG ELSE LPRINT 
8920 NEXT Jl 

8930 IF NOT Fl THEN 8660 
8940 LPRINT S2*, 

8950 RETURN 
8960 RESUME 8970 
8970 ON ERROR GOTO 0 
8980 ER-5* GOTO 10510 

8990 

9000 '••« APAGA 0 ARQUIVO DE FORMATO »•* 

9010 

9020 PRINT 3704, "ARQUIVO OE FORMATO -", 

9030 K-726* TM-8: GOSUB 860 
9040 GOSUB 6630 : IF EROO THEN 9030 
9050 ON ERROR GOTO 9090 
9060 KILL R**"/FMT" 

9070 ON ERROR GOTO 0 
9080 RETURN 
9090 RESUME NEXT 

9100 

9110 ABRE UM ARQUIVO DE INDICES **« 

9120 

9130 IF F7 THEN GOSUB 4960: PRINT 3971," ", 

9140 GOSUB 6770 

9150 GOSUB 4770 : IF NOT F7 THEN ER-19: GOSUB 10510: PRINT 3971," 
",: ID*-"" 

9160 RETURN 

9170 

9180 '••• INDEXAR ••• 

9190 

9200 IF IDOO THEN CLOSE ID: PRINT 3971," ", 

9210 I D-NA+2 
9220 GOSUB 6770 
9230 CLS: GOSUB 1150 
9240 ON ERROR GOTO 9460 
9250 KILL ID*+"/IDX" 

9260 ON ERROR GOTO 0 

9270 PRINT 3256 ,,: LINE INPUT "CAMPO CHAVE - ", EC* 

9280 IF EC*-"" THEN 9270 

9290 PL-1 * LL-LEN ( EC* ) : GOSUB 3350 

9300 IF EROO THEN PRINT "ERROMI - ",TE*(ER ) * GOTO 9270 
9310 CH- J: IF TP(CHX>1 THEN I-TT(TP(CH)) ELSE I-TC(CH) 

9320 IF 1)248 THEN PRINT TE*<2): GOTO 9270 

9330 ON ERROR GOTO 9470 

9340 OPEN "R", ID, ID*+"/IDX" , 1+8 

9350 ON ERROR GOTO 0 

9360 FIELD ID, 2 AS El*, 2 AS E2*, 2 AS E3*, 2 AS E4%, IX AS CH* 
9370 LSET E1*=MKI*<0): LSET E2*»E1*: LSET E3*»E2*: LSET E4*-MKI* 
< CH ) 

9380 PUT ID , 1 : RAIZ-0 

9390 GOSUB 3040 'Le a condlcao para gue urn regiatro possa aer i 

ndexado 

9400 NF-1 

9410 IF NF )-F IN THEN F7--1 : RETURN 'F i m da indexacao 
9420 GOSUB 2480 'Le a ficha 

9430 IF F 2 THEN GOSUB 2730: IF NOT F3 THEN 9450 

9440 GOSUB 2040 'Inclul no arguivo de indicea 

9450 NF -NF ♦ 1 * GOTO 9410 

9460 RESUME NEXT 

9470 RESUME 9480 

9480 ON ERROR GOTO 0 

9490 PRINT "ERROMI - ",TE*(16) 

9500 GOTO 9270 

9510 * 

9520 '•»» APAGA UM ARQUIVO DE INDICES 

9530 'an****** *.M.it.MMM.» 

9540 PRINT 3971," ",* K-971: TM-8: GOSUB 860: GOSUB 6830: 

IF EROO THEN.9540 
9550 IF R*- ID* THEN G0SU8 4960 
9560 ON ERROR GOTO 9600 
9570 KILL R*+"/IDX" 

95R0 ON ERROR GOTO 0 
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9590 RETURN 
9600 RESUME NEXT 
9610 

9620 '*•« FIM 
9630 '««»»»•••»••»• 

9640 IF NOT F6 THEN GOSUB 4900 'Fecha arqulvo* 

9650 CMD"BREAK , Y" i END 

9660 '•*•*»•* 

9670 '••* CALCULA »«* 

9680 '*«»«•••«•«•««••«• 

9690 'Entra * LI, N4, N6, N3, N9 
9700 'Sail N7 , N8 
9710 'Deatro i l ER , K 

9720 ' 

9730 N7-LI-N4-N6 

9740 K-N7-N9 

9750 K«INT(K/(N3«-N9>> 

9760 N8-N7-K* ( N3+N9 ) -N9 
9770 N7-K ♦ l 

9780 IF N7< 1 THEN ER-11* PRINT 3768."ERR0!H - ", TEf(ER), ELSE 
ER-0 

9790 RETURN 
9800 

9810 '**• LE DESCRICAO DA IMPRESSAO DO DISCO • «» 

9820 

9830 'Entra* FM 

9840 'Sail CO, LI, Sl%, S2t, N4 , T4<>, L4*(>, Nl, Cl. N5, T5<>, 
9850 ' C5<>, N3 , N7, N8 . N9, N6, T6(), L6»(>, N2, C2 

9860 'Dcatroli Ji 

9870 ' 

9880 '*#• IMPRESSORA »*» 

9890 INPUT NFM , CO, LI, SIS, S2S 
9900 '*•• RELATOR 10 ••• 

9910 '*•• Cabecalho 

9920 INPUT RFM , N4 

9930 IF N4-0 THEN 9970 

9940 FOR Jl = i TO N4 

9950 INPUT RFM, T4(J1>, L4S(J1) 

9960 NEXT Ji 

9970 INPUT RFM, Nl , Cl 

9980 '*•* Det a 1 he 

9990 INPUT RFM , N5 

10000 FOR Ji-i TO N5 

10010 INPUT RFM , T5(J1), C5<J1) 

10020 NEXT JI 

10030 INPUT RFM , N3, N7, N8, N9 
10040 '»•» Rodape ' 

10050 INPUT RFM. N6 
10060 IF N6-0 THEN 10100 
10070 FOR Jl-1 TO N6 
10080 INPUT RFM, T6(J1T, L6S<J1> 

10090 NEXT JI 
10100 INPUT RFM, N2, C2 
10110 FIM 

10120 RETURN 

10130 

10140 '•»• GRAVA DESCRICAO DA IMPRESSAO NO DISCO »•* 

10150 

10160 'Entra* FM, CO, LI, SIS, S2S , N4, T4<>, L4SO, Nl , Cl. N5 
10170 ' T5< ) ,C5< > , N3 , N 7, N8, N9 . N6, T6(),L6S(), N2, C2 

10180 'Drstroit JI 

10190 ' 

10200 '•*• IMPRESSORA «•» 

10210 PRINT RFM, CO, LI, CHRS<34>, SIS, CHRS<34), CHRS<34>, S2S, 
CHRS ( 34 > 

10220 '*•• RELATOR 10 
10230 '•*• Cabecalho 
10240 PRINT RFM , N4 
10250 IF N4-0 THEN 10290 
10260 FOR Ji«l TO N4 

10270 PRINT RFM. T4<Ji>, CHRS<34>, L4S(J1) CHRS(34) 

10280 NEXT JI 

10290 PRINT RFM, Nl, Cl 

10300 '•»* Det a 1 he 

10310 PRINT RFM, N5 

10320 FOR Jl-1 TO N5 

10330 PRINT RFM. T5(J1>, C5<J1) 

10340 NEXT Ji 

10350 PRINT RFM, N3, N7, N8, N9 
10360 '••« Rodape ' 

10370 PRINT RFM, N6 
10380 IF N6-0 THEN 10420 
10390 FOR Jl-1 TO N6 

10400 PRINT RFM, T6(J1), CHRS<34>, L6S(J1), CHRS<34> 

10410 NEXT Ji 

10420 PRINT RFM. N2, C2 

10430 '*** FIM 

10440 RETURN 

10450 

10460 '*•* ERRO-1 
10470 '«««••«••»«•«•»«« 

10480 'Entra* ER , TESO 
10490 'Destroii K 

10500 ' 

10510 PRINT 3768, "ERROI I I - ", TES(ER), 

10520 FOR K-l TO 800* NEXT K 
10530 RETURN 

10540 

105S0 '*•* ERRO-2 *•* 

10560 

10570 'Entra* ER , TESO 
10580 'Deatroi* K 

10590 ' 

10600 PRINT 3768, "ERROHI - ", TES(ER ) , 

10610 FOR K-l TO 800* NEXT K 
10620 PRINT 3768, STR INGS ( 64 , 32 ) , 

10630 RETURN 
10640 

10650 '«»« SOM 
10660 

10670 'Entra* SOMS, PT 
10680 'Deatroi* ED! 

10690 ' 



10700 ED ! -PEEK ( PT+i >+PEEK (PT*2 >»256 
10710 IF ED! >32767 THEN ED I -ED l -65536 
10720 DEFUSRO-ED ! 

10730 EO ! -USRO(O) 

10740 RETURN 

10750 '»•«»••»•«»•««••• 

10760 '*•» APAGA2 
10770 

10780 CO-O* LI-O* SIS-""* S2S-""* Nl-O* N2-0* N3-0* Cl-O* C2-0 
10790 FOR 1-1 TO 10 

10800 T4< I )»0* T5< I ) -0* T5(I+10>-0* C5(I>-0* C5(I+10>=0* T6<I>»0 

10810 L4S < I > -"" * L6S< I 

10820 NEXT I 

10830 RETURN 

10840 '»«*»«••«•«•«»•* 

10850 '*** APAGA •»« 

10860 '»••<*«•••••«««••« 

10870 FOR J-i TO P2<NP> 

10880 LSET CCS( J>-ZRS<TP( J> > 

10890 NEXT J 
10900 RETURN 
10910 ' 

10920 ' 

10930 '«••«»»<•«•*»••«« 

10940 '«•* MENUS 

10950 

10960 CLS* GOSUB 1150 

10970 PRINT 3153, "MENU PRINCIPAL"* PRINT 

10980 PRINT TAB(10),"1 - ABR IR/CR I AR /MODI F ICAR /APAGA# BANCOS" 
10990 PRINT TAB ( 10 ) ; "2 - INSER IR/MODIFICAR/APAGAR/PROCURAR DADOS 



11000 PRINT TAB < 10 > , "3 - INDEXAR/DESINDEXAR DADOS" 

11010 PRINT TABOO), "4 - CR I AR/MODIFICAR/EXECUTAR RELATOR IOS" 
11020 PR.INT TAB (10), "5 - FIM" 

11030 PRINT 3944, "OPCAO?", * K-951* TM-1* GOSUB 860* O-VAL(RS) 
11040 IF OU OR 0 >5 THEN 11030 

11050 IF F 6 THEN IF OOi AND 005 THEN ER-12* GOSUB 10600* GOTO 
11030 

11060 ON 0 GOSUB 11080, 11190, 11290, 11400, 9640 
11070 GOTO 10960 
11080 CLS* GOSUB 1150 

11090 PRINT 3150, "MENU SECUNDARIO - 1"* PRINT 

11100 PRINT TAB(15>,"1 - ABRIR/CRIAR UM BANCO DE DADOS" 

11110 PRINT TAB ( 15) , "2 - MODIFICAR A DESCRICAO DO BANCO" 

11120 PRINT T AB < 15) , "3 - APAGAR 0 BANCO DE DADOS" 

11130 PRINT TAB (15), "4 - FECHAR 0 BANCO DE DADOS" 

11140 PRINT TAB ( 15) , "5 - RETORNAR AO MENU PRINCIPAL" 

11150 PRINT 3944, "OPCAO?",* K-951* TM-1* GOSUB 860* O-VAL(RS) 
11160 IF 0(0 OR 0)5 THEN 11150 

11170 IF 0*5 OR 0-0 THEN RETURN ELSE ON 0 GOSUB 5880,6930.7050.4 

900 

11180 GOTO 11080 
11190 CLS* GOSUB 1150 

11200 PRINT 3150, "MENU SECUNDARIO - 2"* PRINT 
11210 PRINT TA8(15),"1 - INSERIR DADOS" 

11220 PRINT TAB ( 15) ,"2 - INSERIR SOBRE FICHAS APAGADAS" 

11230 PRINT TAB ( 15) ,"3 - LOCALIZAR/DELETAR/MODIFICAR DADOS" 

11240 PRINT TA8(15>,"4 - RETORNAR AO MENU PRINCIPAL" 

11250 PRINT 3944. "OPCAO?", * K-951* TM-1* GOSUB 860* O-VAL(RS) 

11260 IF 0(0 OR 0)4 THEN 11250 

11270 IF 0-4 OR 0-0 THEN RETURN ELSE ON 0 GOSUB 5060,5050,5150 

11280 GOTO 11190 
11290 CLS* GOSUB 1150 

11300 PRINT 3150, "MENU SECUNDARIO - 3"* PRINT 

11310 PRINT TAB ( 15) ,"1 - ABRIR UM ARGUIVO DE INDICES" 

11320 PRINT TAB ( 15) ,"2 - FECHAR 0 ARGUIVO DE INDICES" 

11330 PRINT TAB (15), "3 - CRIAR UM ARGUIVO DE INDICES" 

11340 PRINT T AB ( 1 5 ) , "4 - APAGAR UM ARGUIVO DE INDICES" 

11350 PRINT T AB ( 15 ) , "5 - RETORNAR AO MENU PRINCIPAL" 

11360 PRINT 3944, "OPCAO?", * K-951* TM-1* GOSUB 860* O-VAL(RS) 

11370 IF 0(0 OR 0)5 THEN 11360 

11380 IF 0-5 OR 0-0 THEN RETURN ELSE ON 0 GOSUB 9130,4960,9200,9 
540 

11390 GOTO 11290 
11400 CLS* GOSUB 1150 

11410 PRINT 3150, "MENU SECUNDARIO - 4"« PRINT 

11420 PRINT TAB(15),"i - CRIAR DESCRICAO DE RELATOR 10" 

11430 PRINT TAB ( 15 ) , "2 - MODIFICAR DESCRICAO DE RELATOR 10" 

11440 PRINT TAB ( 15 ) , "3 - APAGAR DESCRICAO DE RELATOR 10" 

11450 PRINT TAB (15), "4 - IMPRIMIR" 

11460 PRINT TAB (15), "5 - RETORNAR AO MENU PRINCIPAL" 

11470 PRINT 3944, "OPCAO?", * K-951* TM-1* GOSUB 860* O-VAL(Rt) 

11480 IF 0(0 OR 0)5 THEN 11470 

11490 IF 0-5 OR 0-0 THEN RETURN ELSE ON 0 GOSUB 7210,11510,9020, 
8520 

11500 GOTO 11400 

11510 FM-NA+1* CLS* GOSUB 1150 

11520 PRINT 3192, "ARQUIVO DE FORMATO -" 

11530 K -21 3 * TM-8 * GOSUB 860* GOSUB 6830* IF EROO THEN PRINT 3K 

, " "* GOTO 11530 

11540 IF RS-FMS THEN 11600 ELSE FMt-RS 

11550 ON ERROR GOTO 8960 

11560 OPEN "I", FM, FMS+"/FMT" 

11570 ON ERROR GOTO 0 
11580 GOSUB 9890 
11590 CLOSE NFM 

11600 PRINT* R*-""* INPUT "IMPRIMIR OS VALORES ANTER IORES", RS 
11610 IF R1»"S" THEN F5— 1 ELSE IF R5( >"N" THEN 11600 ELSE F5-0 
11620 CLS* GOSUB 1150* PRINT 3153. "ITENS A MODIFICAR"* PRINT 
11630 PRINT TAB(15>,"1 - CAR ACTER ISTICAS DA IMPRESSORA" 

11640 PRINT T AB ( 15 ) , "2 - CAR ACTER 1ST ICAS DO CABECALHO" 

11650 PRINT TAB ( 15) ,"3 - CARACTER 1ST ICAS 00 DETALHE" 

11660 PRINT TAB ( 15 ) , "4 - CARACTER ISTICAS DO RODAPE'" 

11670 PRINT TAB (15), "5 - RETORNA AO MENU SECUNDARIO" 

11680 PRINT 3944, "OPCAO",* K-951* TM-1* GOSUB 860* O-VAL(RS) 

11690 IF 0-5 OR 0-0 THEN 11720 ELSE IF 0(1 OR 0)4 THEN 11680 

11700 ON 0 GOSUB 7450, 7660, 7890, 8190 

11710 GOTO 11620 

11720 GOSUB 9730 'CALCULA 

11730 IF ER THEN FOR K-l TO 800* NEXT K* GOTO 11620 

11740 OPEN "0", FM, FMS+"/FMT" ■ 

11750 GOSUB 10210* CLOSE RFM* RETURN ££ 
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DESCUBRA AS DIFERENCAS 



AparenEementB astas dais cabOs 
sflo igua^. 

oihe bem e tenta de^cnbrir as 
dlf#ren^a3 

Soluble: 

1 ■ O cabfl dfi cima e AUDIQFIEX. Ele 

tem corclinukiade da earacleristipgs 
elgtricas ad Ion go da loria Uciha, 
porqua £ fabric-arid com O meiheir 
equips men rq e sua qualidade £ 
contr plaria am loda hnha da 
fabricate- 

2 0 cabo de cima 6 AUDIO FLEX Ele 
6 f&bricado com cobre aletroliuco 
novo o polietileno novo nada cie 
matG-riaprima recuperate. 

3 - 0 cabo de cima £ AUDIOFLEX 

Sua monfagem ^ rtipida e f^cM, 
davido 4s dhrflfsifica^SM de lipos e 
corses bobmados no compiimenio 
axa to. 

4 ■ D cabo da cima c AUDlOFLtX Ele 

pa«a peio mais avadpado tonirole 

de qualidsde 




5 0 cabo de cima S AUDtOFLEX Ele 
* fabricado p OF iimg empress que 
sd fabrica cabo* especisis, 

6 0 cabo de cma * AUDEOFLEX Ele 
6 faiio com a mai* alta tecnotogia. 

7 0 cabo d& cima 4 AODSOFLEX Ele 
^ fabneado am mais de 18 Tipos 
dilarertTes. 

8 0 cabo de cima e AUOIOFLEX A 
empnrea que 0 labrica tam um 
DetparlamenlO dE EngenHaria 
prEparado para indica* [| u u I 0 
melhor tipd para su u C3S0. 

8 - 0 cabo dE cima AUDlOFLEX EIe 
p . fahricado um vanon tipOs de 
biEoHas e hSindagens. 

ID - 0 cabo dE cima 0 AUDIOFLEX £Je 
a fabricado com vanOs NpOs do 
CondutOrcs inter nos 

Agora, se voce esta pensando quo 
desco brill as dileroocas. voce errou. 
porque o de ba'ixo terob^m A KMP. 

6 a KMP iern a mnis alt a Eeonologia 
am cab os aspeciais 



audioflex" 



kmP 



Cabos E^tpeciais a Sistomu Ltda, 



0ftnS km25 c^. Poeiai us riesoo 
Emc,u SP Tel 03 1 404 ZJ33 Pabx Telux 
DU 33234 KM PS. PnefcJbkf 



iff 



Quskiuer duvids chame nmso Depart btimkHo de Enc^harifl de MarLcn^ 







Enxadrista experiente , Luciano Ni/o de An- 
drade j4 esc re ve u para os jornais "Correio da 
ManhS ~ Data News" e " Ultima Hora” e pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo 
mista. traba/hando no Minist6rio da Fazenda, 
no Rio de Janeiro. As opinides e coment6rios 
de Luciano Ni/o de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores. astarSo sempre presen tes em 
MICRO SISTEMAS. 



As facanhas de um recordista 

# 



E xcesso de confian^a e tempo insu- 
ficiente levaram a derrota Vlasti- 
mil Hort, GMI checo, ao enfrentar 
o micro Prestige, da Fidelity, numa si- 
multanea realizada em Colonia, na Ale- 
manha Ocidental, em 5 de outubro 
ultimo. 

Prodigo na entrega do material para 
mobilizar suas pe^as com rapidez, Hort 
s6 nao conseguiu seu desiderato porque. 
no momento azado. na jogada 19, nao 
desfechou um golpe mortal no adver- 
sary. Posteriormente, depois de perder 
varias oportunidades de lutar pelo em- 
pate, acabou precipitando o fim com 
uma capivarada de fei^ao classica. 

Entretanto. foi o proprio Vlastimil 
Hort quern estabeleceu, no dia 6 de 
outubro ultimo, novo recorde mundial 
de simultaneas, ao jogar contra 575 jo- 
gadores em 663 tabuleiros. Durante esta 
maratona enxadristica, Hort perdeu tres 
quilos e andou cerca de 45 quilometros 
em torno das mesas. 

0 recordista anterior era o alemao 
Karl Podzielny, contra 300 adversaries 
em 575 partidas. 



V. Hort x Prestige 
Abertura do Peao Dama 
Simultanea, Colonia, 1984 



I - P4D C3BR; 2 — BSC C5R;3 — B4B 
P4D; 4 - P3B C3BR; 5 - P4R PxP; 
6 - C3B C4D!?; 7 - CxC DxC ; 8 - P4B 
D4TD+; 9 - B2D D4B; 10 - PxP DxP; 

II - B2R D5T+; 12 - P3CR DxP; 



13 - C3B DxPC; 14 - TIC DxPT; 
15 - B3B D3T!; 16 - 0-0 B6T; 17 - 
T2B B4B. 18 - P5B D6T. Veja o diagra- 
ma A. Posi 9 ao depois de 18-P5B D6T. 
Agora as brancas poderiam ganhar com 
19 - TxP DxB; 20 - B5C+C2D; 21 - 
TxPB T1D; 22 - T2D. 19 - B4C(?) as 
brancas deixam escapar a oportunidade 
de coroar com sucesso uma inspirada 




abertura. 19 — ...D6R; 20 - T3C D5R; 
21 — C5C D4R ; 22 - CxPB ! RxC ; 23 — 
TxB+ DxT; 24 - T3B DxT;25 - B4B+ 
R1R; 26 - DxD C3B;27 - B7B+ R2D; 
28 - D5B+ RID; 29 - B3B (?) com 29 
D5D+ RIB 30 B6R+ R1C 31 D7D e as 
pretas teriam dificuldade em reagrupar 
suas pe$as na defesa do seu monarca. 29 
- ...P4R! D3D; 30 - D3D+ RIB; 31 - 
D5D B2R; 32 - R2C T1D as pretas jd 
sairam da imobilidade em que estavam, 
para comesar a disputar a iniciativa. 33 - 
D4B B3B; 34 - D4R C5D;35 - B5D(?) 
P3B! ; 36 - B4B P3TR; 37 - D6C 
P4CD; 38 - B3D P4TD;39 - P4T P5T, 
40 - P4C C6C, 41 - B5B+ R2C;42 - 



P5C PxP, 43 - PxP CxP! se 43 - ... B2R; 
44 - DxPC HR; 45 - B7D, a vitdria 
das brancas seria quase que matematica. 
44 - PxB PxP; 45 - DxP T4D; 46 - 
BxP T7D+; 47 - R3B P5C;48 - B6D 
R3C; 49 — D5R (?) com possibilidades 
de continuar a luta seria 49 - D7R TxB ; 

50 - DxT P6C. 49 - ...T4D; 50 - D4B 
R4C; 51 — B3T (?) era necessario jogar 

51 — BxC! RxB, 52 - B4R e entao ain- 
da teriamos luta, o que nao aconteceu 
com a continua^o do texto. 51 — 
... T6D+; 52 - R2C T1C+; 53 - B4C 
TxB; 54 - Dxt TxB+; 55 - R3B TIC; 
56 - R3R P6T, 57 - D5R P7T; 58 - 
R2D (??) P8T=D e as brancas abandona- 
ram. 



Campeonato Brasileiro 
de Solu^oes de 1 984 




CEHIRALIATA 

Com, e Representaqoes Lida 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 



DISKETES: 5 1/4 e 8" e fitas magn6ticas 
• marca VERBATIM 
ETIQUETAS PIMAC0 PIMATAB 
PASTAS E F0RMULARI0S CONTl'NUOS 



• Discos Magn6ticos; 5 Mb. 16 Mb. 8 Mb. eta 

• Fitas Magn&icas: 600. 1200 e 2400 p6s 

• Fitas CARB0FITAS p Impressoras Globus. M 100/200 B 300/600 

• Fitas p/lmpressoras: Elgin. Epson. Digilab. Diablo. Elebra Alice. 

• Cartucho Cobra 400 



Elebra 



AV PRESIDENTE VARGAS N° 482 GR 201 203 Tel.: KS (021) 253 1120 





Microcomputadores CRAFT 
a extensao de sua mente. 



~ A1IC BO C OyHPUld DOS ES LTCuJ. 

Av Bng Farm Lima, 1.69S 1° arnhr ■ Cp 1 1 CEP HlAh? 

Tek mi) 2t2-62fl6e8tS-6723 S&o Paulo SP Brasil 
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BANCOS DE DADOS — Dois servi^os publicos 
oferecidos comercialmente a partir deste ano pela 
Embratel possibilitam acesso a importantes bases de dados 

Micros mais proximos 
das bases de 
informacoes 




Q uando em 1975 a Embratel 
possibilitou as conversas atra- 
ves do sistema de Discagem 
Direta Internacional, a comu- 
nidade de teleinformdtica engatinhava 
no Brasil. Dez anos depois ela di passos 
fumes, de m 2 os dadas, num projeto 
significativo para o usuario, o Cirandao. 
Da mesma maneira que na dan 9 a de 
roda, ele possibilita a reuniao dos 
brasileiros que tern em comum o gosto 
pela Informatica. Resultado de in- 
vestimentos, ate agora, em torno de 
Cr$ 1 bilhao, o Cirandao surge como 
apenas um dos bons resultados de pes- 
quisas da empresa na drea, que possibi- 
litaram a cria 9 ao de outros serv^os, co- 
mo o Interdata, Airdata, Findata, Trans- 
data, Interbank e o Renpac, que tam- 
bdm jd pode ser utilizado este ano. 

A histbria mais recente da participa- 
da Embratel na teleinformdtica co 
me 90 u no instante em que se considerou 
necessdrio estender ao mdximo o conhe- 
cimento de opera 9 do de microcomputa- 
dores ao quadro de funciondrios da prb- 
pria empresa, com o projeto Ciranda. 
Descobriu-se que o projeto poderia ofe- 
recer aplica^es acima das expectativas. 
Isto 6, proporcionava muito mais que a 
aproxima 93 :o de funciondrios de uma 
empresa. 

Na primeira etapa de implanta^o do 
Cirandao foram rcunidos nada menos 
que 2.100 CP-500, muitos dos quais fi- 
nanciados pela empresa aos funciondrios 
interessados em participar do projeto. 

38 



Em tomo desses aparelhos, alem dos 
2.100 proprietaries, muitos dependentes 
foram beneficiados por senhas subsidia- 
ries. Periodicamente os resultados obti- 
dos eram analisados e dispostos de for- 
ma a retirar deles todas as arestas, para 
elevar o nivel do projeto prbximo a 
perfe^ao. Estava sendo criado um dos 
mais sauddveis servi 9 os da Embratel, 
com os participates da comunidade de 
troca de informa 9 bes orientando a pas- 
sagem para o projeto Cirandao. 

E, implantado esse projeto, e dado o 
primeiro passo da Embratel rumo a uma 
pesquisa mais ambiciosa, a Inteligenda 
Artificial, o aspecto mais importante pa- 
ra a cria 9 So da quinta gera 9 do de com- 
putadores. Serd a utiliza 9 do do Ciran- 
dao Saude em experiences de consul- 
tas com linguagem natural. 

Manter um micro apenas para jogos 
nSo 6 coisa nem mais de crian 9 a. Retirar 
a capacidade ociosa dos aproximada- 
mente 200 mil aparelhos que jd existiam 
atd o final de 1984, numero que poderd 
subir a 350 mil atd o final deste ano foi, 
em tese, o objetivo da Embratel com o 
Cirandao. Em tese, pois a utiliza 9 £o dos 
serv^os por parte de 5 por cento dos 
usudrios jd seria um resultado altamente 
satisfatbrio para a empresa. 

O que propbe o Cirandao para atrair 
esses virtuais usudrios? Um variado re- 
pertbrio de servi 90 s, que atende desde o 
aluno em duvida com um dado na pes- 
quisa escolar ate o executivo interessa- 
do em contratar um profissional alta- 



mente especializado em novo segmento 
da Engenharia. E isso com a utiliza 9 ao 
de um equipamento bastante simples, a 
partir de um terminal de video, um mo- 
dem e um telefone. 

NAVEGAQAO INTEGRADA 

A Embratel j d empregou Cr$ 1 bi- 
lhao dos CrS 3,5 bilhbes previstos para 
a implanta 9 £o total do programa ate 
1991 . Os recursos foram utilizados prin- 
cipalmente na cr^do da infra-estrutura 
de atendimento ao usuario do Cirandao. 
Para a intermedia 9 ao desse serv^o, o 
projeto dispbe de dois minicomputa- 
dores 540 da Cobra, de 1 Mb,operando 
com 32 portas assincronas, duas unida- 
des de fita magnetica de 1 .600 bps, duas 
impressoras de 600 LPM, 12 terminals 
para supervise, desenvolvimento, edi- 
9 do e atualiza 9 ^o de bases de dados e oi- 
to unidades de disco rigido de 80 Mb, 
quatro das quais para o back-up, da mes- 
ma forma como um dos 540 da Cobra. 
Com o aumento da demanda, jd e pre- 
vista a instala 9 ao de uma unidade se- 
melhante em Sdo Paulo. 

O Cirandao e acessado atraves da 
rede de telefonia a partir de seis cidades, 
em cardter gratuito: Rio, Sdo Paulo, Be- 
lo Horizonte, Brasilia, Curitiba e Porto 
Alegre. Os usudrios de outras cidades, 
por enquanto, acessardo o Cirandao 
atraves de DDD, arcando com o custo 
da liga^o. Os serv^os compreendem, 
em termos bdsicos, Banco de Informa- 
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Esquema de acesso ao Cirandao 

9 < 5 es, Banco de Programas, Serv^os de 
Comunica 9 bes, Armazenamento de Ar- 
quivos de Usuarios e Serv^o de Suporte 
aos Usudrios. 

De acordo com Luis Cldudio Gon- 
9 alves, engenheiro de Telecomunica 9 bes 
da Embratel, e um dos encarregados do 
Cirandao, no Banco de Informa 9 bes es- 
ta sendo disposta, de forma gradativa,a 
mais variada especie de dados de interes- 
se dos diversos setores da comunidade. 
O sistema efetua a navegagao integrada, 
permitindo ao usudrio, sem necessidade 
de mudar de banco de dados, obter in- 
forma 9 bes complementares de fontes al- 
ternates. Isso tudo com constantes 
atualiza 9 bes de dados. 

O Banco de Programas possibilita a 
transference de variada gama de soft- 
ware aos usuarios, com aten^o especial 
k administra 9 Sb empresarial, profissional 
e domestica, ciencia e tecnologia, edu- 
ca 9 ^o e jogos. Em rela 9 do a programas, 
o piano e colocd-los nos terminals com 
requisitos de seguran 9 a, como se tives- 
sem sido adquiridos em casas especiali- 
zadas. Atravds de seus mecanismos, o 
Cirandao deverd se constituir num vei- 
culo de midia para atendimento das ne- 
cessidades de empresas e clubes de soft- 
ware, possibilitando a inscr^ffo de novos 
socios, solicita 9 So de programas, treina- 
mento, cobran 9 a de servi 9 os, divulga- 
9 ^o, coleta de opinibes etc. 

COMUNICA£AO PESSOAL 

Quanto aos Serv^os de Comunica- 
9 bes, 6 dividido em quatro 4reas: Servi- 
90 de Mensagens, Quadro de Avisos, 
Mercado Eletronico e Teleconferencia. 
A primeira delas atende a comunica 9 Sb 
em nivel pessoal, com caixas postais que 
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armazenam 198 mensagens de 6 Kb ca- 
da, que o usudrio do serv^o recebe ao se 
inscrever no Cirandao, podendo desig- 
nar seus dependentes para que tambem 
recebam caixas-postais. O Quadro de 
Avisos permite ao usudrio comunicar- 
se simultaneamente com os demais, en- 
viando-lhes mensagens. Os cirandeiros 
chamam periodicamente o quadro para 
saber se hi aviso que lhes interesse. O 
Mercado Eletronico funciona de forma 
semelhante, mas na drea especifica de 
compra, venda e troca de bens e servi- 
90 s relativos k Informdtica. A Tele- 
conferencia permite que o usulrio colo- 
que em discuss£o um tema, com a pos- 
sivel participa 9 ao dos demais, que po- 
dem comentar, acrescentar informa 9 bes 
e sugestbes, como em uma especie de 
caixa postal publica. 

Mediante um pagamento especifico, 
os cirandeiros podem dispor de certa 
capacidade de membria particular na ex- 
tensa:o Armazenamento de Arquivos. 
Quanto ao Serv^o de Cadastro de Usud- 
rios, eles sa:o disponiveis on4ine e gra- 
tuitamente, objetivando ampliar o rela- 
cionamento com o sistema. Ele fomece 
listagem de outros cirandeiros, infor- 
ma 9 bes sobre tarifas e serv^os e aceita 
sugestbes e solicita 9 bes visando ao aper- 
fei 9 oamento do sistema. O Cirandao 
permite tambem a forma 9 ao de comu- 
nidades de interesses comuns, at£ mes- 
mo facilitando a opera 9 ao de comuni- 
caqSo entre eles. 

A engenheira Talia Chaves Buarque 
de Hollanda, uma das responsdveis pela 
implanta 9 ao do projeto, informa que 
nos ultimos meses, de acordo com pes- 
quisa, foram feitas 5.300 liga 9 bes men- 
sais, em media. Isso representa 03 li- 
ga 9 ao por terminal, com dura 9 ao, 




□e-erro 

Na Mensagem de Eno de MS n9 38, pag. 
106, na cone^ao das linhas 5340 e 5520 do 
programa Batalha Naval (publicado em 
MS n9 32, pag. 70) ocorreram algumas 
falhas, pois nao foram escritos os caracteres 
invertidos constantes nestas linhas. Assim, 
repetiremos estas linhas como devem ser 
digitadas: 534.0 print hn.i . o»n>+i6 

5520 _ LET H|il(N) . 0 i N • » s 'l” 



Em MS n9 39, pag. 16, no programa Compi- 
lador Forth para Sinclair, houve um erro na 
listagem 1, na linha 140. Corrija esta linha 
para: 140 CLS. 



Em MS n9 39, pag. 72, a listagem do progra- 
ma Space Ghost apresentou falhas de im- 
pressao nas linhas que continham mensagens 
e/ou caracteres invertidos. Para facilitar a 
identifica 9 ao, publicaremos somente os ca- 
racteres e/ou frases que ficaram ilegiveis nas 
seguintes linhas: 

150: INSTRUgOES . . . OBJETIVO: 

160: ATAQUE: 

170: DEFESA: 

210: COM AN DOS: 

230: CONSUMO: 

240: VOCE PERDERA SE: 

650: PARABtNS 

880: SPACE GHOST 

990: > SG 
2550: *T* 

2570: K 
2580 :B 
2590: B . . . K 
2610: > SG 
2950: # T * 

2990: K 
3000 :K 
3010: B 
3020: B K 
3030: B K 

3200: CONGRATULATES, VOC£ CON- 
SEGUIU CUMPR1R SUA MISSAO COM 

gxrro. os terraqueos agradecem 

E CONFEREM-LHE O TltULO DE * HE 
ROl ESPACIAL* 

3220 :T 



Em MS n9 40, pag. 36, o utilitdrio Jogue em 
ritmo Assembler, apresentou incorre 9 oes. £ 
necessario as seguintes repara 9 oes: na pag. 
37, na primeira coluna, segundo paragrafo, 
na sexta linha, apareceu indevidamente a pa- 
lavra tecla, o correto 6: . . . nesse canto mas 
apenas na linha da tela. . . Na mesma pdgina 
37, no terceiro paragrafo, segunda linha, 
corrija para : . . . linhas descritas de RUN e 
veja . . . E na figura 2, apos o IF INKEY$ 
faltou um sinal grdfico. O certo 6: zzzz IF 
IN KEYS <>“ ’’THEN 



Em MS n9 40, o programa entitulado DXCC 
cibernetico (Rodada MS), pag. 74, esta com 
o cr&iito e o curriculo errados. O autor des- 
se programa e Alcione Sperandio Junior, 
formado em Administra 9 ao de Empresas, 
radioamador desde 1971 e prefixado como 
indicative PY5C1G. Alcione utiliza micros 
para desenvolver programas de uso pessoal 
e aplicativos comerciais na area em que atua. 






MICROS MAIS PR6XIMOS ... 

tambdm mddia, de 8’37”. Mas com a 
fase comercial do servi 90 iniciada este 
ano, os numeros tendem a apresentar 
uma ascensffo, diz ela. 

Para o usuario Sebastiffo Machado 
Filho, da mdquina 2316, nSo hi restri- 
95 es ao serv^o. Seu tempo de partici- 
pate no Cirandffo 6 utilizado para os 
jogos e aplicativos, na troca de corres- 
pondence mais formal e na con versa 
com colegas de outras regiOes em tomo 
de assuntos de interesse comum. Enfim, 
como ele diz, “um maravilhoso servi 9 o’\ 

0 planejamento de custo do Ciran- 
d£o foi feito de forma a nSo pesar de- 
mais no or 9 amento do usudrio, seja ele 
pessoa fisica ou juridica. Ele se compOe 
de tres parcelas bdsicas: o serv^o de 
telecomunica 95 es, que inclui a telefonia 
local (pulsos) e DDD, utiliza 9 £o do Ci- 
randffo (arquivamento de dados, caixa 
postal subsidiary, utiliza 9 £o do quadro 
de avisos etc.) e compra de programas 
de outros cirandeiros. Mesmo assim, essa 
ultima parcela poderri n£o existir, fi- 
cando a criterio dos provedores. 

At 6 o fechamento desta edieffo ainda 
n£o havia sido divulgada a tabela de tari- 
fa 9 £o para o Projeto Cirandffo. Os inte- 
ressados no serv^o podem obter infor- 
ma 95 es complementares pelos telefones 
(021) 216-7947 e 253-6944. 

RENPAC: 

a transmissao por pacotes 

Outro serv^o novo de interesse do 
usuario de micros oferecido pela Embra- 
tel a partir deste ano e o Renpac - Rede 
Nacional de Comunica 9 So de Dados por 
Comuta 9 S'o de Pacotes, de opera 9 So 
tamb&n muito simples, cuja implanta- 
9 ^o custou a Embratel US$ 18milh0es, 
oito dos quais investidos em equipamen- 
tos importados i empresa francesa Sesa. 
£ importante destacar que essa opera- 
9310 foi condicionada pela Embratel i 
transferencia de toda a tecnologia para 
que, absorvida pelo Centro de Pesqui- 
sas de Dados da Telebrds, em Campinas, 
possibilite a expansSo da rede com equi- 
pamentos totalmente fabricados no 
Brasil. 

O Renpac 6 um serv^o voltado mais 
para as pequenas e medias empresas que 
trabalham utilizando Informdtica. As ta- 
rifas sSo aplicadas de acordo com o tem- 
po de utiliza 92 b dos canais e com o vo- 
lume de informa 96 es transmitidas, redu- 
zindo custos e possibilitando acesso li- 
pido a dados existentes em todo o Brasil. 



Solucoes especificas 
para grandes usuarios 

71 os dots no vos servigos implantados comercialmente em 1985 pela Embra- 
tel, juntam-se outros que , apesar de curto espago em operagdo na area de 
Informdtica , ja se mostraram muito uteis e em constante aperfeigoamento. Um 
dos servigos mais consolidados e o Transdata , para gestao de negdeios, 
possibilitando o acesso rdpido a bancos de dados ; bo Isas de valores, consultas e 
reserves em hoteis e empresas aereas ou em aplicagoes cuja comunicagao de da- 
dos d elevada ou distribuida intensamente ao longo do dia. 

O Findata e um sistema voltado para a transferencia de dados de forma ndo 
comutada. Permit e o acesso de usuarios brasileiros, em tres segundos, a infor- 
magoes constant entente atualizadas sobre mercado financeiro mundial , dispo- 
niveis em banco de dados do Exterior , como cotagdes de bo Isas de valores e 
mercadorias. moedas ; taxas de juros etc. Um servigo criado principalmente para 
os setores financeiros e de comercio exterior. 

O Interdata e outro servigo da Embratel que emprega tecnologia de comuta- 
gao de pacotes , permitindo a conexdo de usuarios brasileiros a terminais no 
exterior e vice-versa. Sua vantagem e possibilitar o acesso a mais de 300 bases 
de dados publicas fora do Brasil , com informagoes a respeito de Medicina , En- 
genharia, Energia, Educagdo , Noticias etc. 

Ha outros servigos especificos da Embratel voltados a usuarios de compu- 
tadores, como o Airdata. Ele se destina exclusivamente a empresas aereas asso- 
ciadas a Sita ~ Sociedade Internacional de Telecomunicagoes Aeronduticas - 
para interedmbio de informagoes entre as filiais e sucursais na atualizagdo de 
negdeios e reservas de passagens. Ja o Inmarsat permit e que , via satelite, qual - 
quer usuario em terra se comunique com um navio, plataforma ou embarcagao, 
desde que tambem devidamente equipado. 



No sistema Renpac os acessos aos ser- 
vi 9 os podem ser dedicados, atraves de 
terminais inteligentes, por telefone ou 
telex. Para isso ha 1.774 acessos dedica- 
dos, 546 via telefone e 174 via telex. J i 
estffo funcionando cinco dos oito cen- 
tros de comuta 9 <fo, no Rio de Janeiro, 
Sao Paulo, Belo Horizonte, Brasilia e 
Curitiba. A partir do interesse e da ne- 
cessidade, serffo ativados os de Recife e 
Porto Alegre, ale'm de mais um em SSo 
Paulo. 

Entre as formas de utiliza 9 So do Ren- 
pac hi o serv^o 3025, de acesso dedi- 
cado, sendo que os procedimentos de 
comunica 92 o se fazem regulados pelo 
protocolo X.25 da CCITT (Conselho In- 
temacional de Telefonia e Telegrafia). 
Apesar de manter a estrutura interna de 
sua s mdquinas no padrSo SNA, a IBM, 
que tern a maioria dos computadores de 
grande porte instalados no Brasil, j i se 
comprometeu a dar suporte ao X.25. 0 
serv^o 3028 6 tambem dedicado, po- 
rem o protocolo 6 o X.28, para trans- 
missffo assmerona. Neste caso, ao in- 
verso do anterior, que j i transmite o 
pacote em bits, a rede e que tern de 
montar o pacote a partir dos caracte- 
res entregues pelo sistema do usudrio. 
O serv^o 2000 possibilita o acesso a um 
centro por telefone e o 1000 , por um 
terminal de telex. A versatilidade do 
Renpac permite, por exemplo, interli- 



gar um terminal operado em modo ca- 
rater a 1200 bps a uma porta de com- 
putador que esteja operando a 4800 bps 
em modo pacote. 

Com a implanta^o do Renpac, pro- 
curou-se uma tarifa 9 <io mais adequada e 
economica ao usuirio em rela 9 <To a seu 
mais prdximo concorrente, o sistema 
Transdata. E em determinados modos 
de utiliza 9 ^o do Renpac a economia ob- 
tida chega mesmo a 48 por cento. Mas o 
serv^o foi criado de forma a atender ne- 
cessidades especificas. Apenas para 
exemplificar, no sistema 3028, em aces- 
so dedicado, a assinatura fica neste pri- 
meiro trimestre do ano em tomo de 
Cr$ 470.000 em velocidade de 300 bps 
e Cr$ 575.000, para 1200 bps. Mas no 
serv^o 3025, mais sofisticado, ela pode 
chegar pr 6 ximo a Cr$ 3 milh 5 es. 

Quern tern o micro no escritdrio, no 
sistema 2000 , pagara no primeiro tri- 
mestre por volta de Cr$ 200 por minuto 
de utilizado do serv^o. Nos domingos, 
feriados e sdbados apos 14h e diaria- 
mente ap 6 s 20h, a tarifa cai para Cr$ 
110 o minuto. Utilizando o sistema 
1000 , de telex, o minuto em qualquer 
dia custa atualmente Cr$ 180. Mas os 
pianos de tarifas oferecidos pela Embra- 
tel s£o bem variados, de acordo com o 
sistema utilizado e a forma de transmis- 
s£o dos dados. ■ 



Tex to final: Benf Lima Pereira 
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Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usar: ja vem com manual de instruqoes, 
que ensina,em portugues claro, 
a linguagem Basic. 

A partir daf, voce pode preparar 

utilizar as 



^ seus proprios programas ou 

centenas de programas que ja existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o or^amento 
familiar, fiscalizar a conta bancaria, estudar 
matematica, estatistica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar 
E alem disso tudo, o TK 85 tern 
tambem o pre<;o mais acessivel do mercado. 
Pe<;a uma demonstra^ao. 



TK 85,0 micro que voce pode usar. 




computadores pessoais 






BANCOS DE DADOS — Conhega a importancia das 
regras logicas tanto na programagao quanto no tratamento 
e organizagao dos dados 



A Logica na 
programacao 

forge da Cun ha Pereira Filho 



O s computadores sao mdquinas 
extraordinarias. porem sao 
apenas isto: maquinas. A or- 
ganiza^o dos computadores 
fa z com que sejam capazes de executar 
apenas opera9oes muito elementares, 
obedecendo a regras rigidas e velocida- 
des eletronicas. A altissima velocidade, 
que chega a ser avaliada em MIPS (Mi- 
lhoes de Instn^oes Por Segundo), 
KOPS (o K e de quilo, milhares de Ope- 
ra96es Por Segundo) e MFLOPS (Mega 
Floating-point Operations Per Second, 
isto 6 , milhoes de opera9oes de ponto 
flutuante por segundo), compensa a 
burrice do computador. 

Combinando seqiiencias de instru- 
9&es primitivas de maquina chega-se a 
executar uma fun9ao mais complexa. 
Reunindo-se um conjunto destas fun- 
9oes de forma organizada e 16 gica, tem- 
se um programa de computador. No 
programa reside toda a inteligencia que 
6 emprestada a maquina, e 6 de onde 
vem a sua paradoxal flexibilidade de 
aplica9ao. Esta flexibilidade vem com- 
pensar a rigidez das regras de progra- 
ma9§o. 

As possibilidades de aplica9§o do 
computador sao, assim, praticamente ili- 
mitadas devido as multiplas op9oes da 
troca de programas. A cada novo progra- 
ma corresponded um novo comporta- 
mento e, portanto, uma nova aplica- 
9ao. Desta maneira, a limit a9ao de em- 
prego dos computadores fica condicio- 
nada a capacidade do homem de imagi- 
nar novos usos e, mais ainda, de cons- 
truir os programas necessarios. A cons- 
tru9ao de programas e uma tarefa traba- 



lhosa e complexa. que requer mao de 
obra especializada e, dependendo do vo- 
lume de aplica9oes imaginadas £ possi- 
vel que chegue a faltar a necessaria mao- 
de-obra para constru9ao dos programas. 
O risco existe porque a imagina9ao 6 
mais livre e rapida do que a tecnologia. 
embora o desenvolvimento tecnoldgico 
venha se acelerando. Haverd um equili- 
brio. em futuro proximo, entre a imagi- 
na9ao e a tecnica? 

A IMPORTANCIA DA LOGICA 

A constru9ao de programas 6 , assim, 
a questao central para um uso eficaz dos 
computadores na solu9ao dos problemas 
do homem. Constituindo-se os progra- 
mas em conjuntos de ftu^oes organiza- 
das de maneira 16 gica, obedecendo a leis 
do raciocinio, as regras para racionar 
corretamente tomam-se fundamentals. 
Os programas tern que estar logicamente 
corretos, sem o que nao sao confidveis. 

As regras para um raciocinio correto 
}& eram conhecidas dos antigos gregos, 
no seculo IV A. C., desenvol vidas pelos 
fildsofos cldssicos S6crates, Platao e 
Aristoteles. A este ultimo, em particu- 
lar, coube criar o corpo de doutrina 
conhecido como Ldgica Formal, Logica 
Menor, Logiquinha ou Epistemologia, 
que cont^m a sistematiza9ao dessas leis. 
Sobre esta descoberta dos gregos repou- 
sa todo o avan90 tecnoldgico modemo: 
a Ciencia repousa sobre a L6gica. 

A interpreta9ao matematica dessas 
regras 16 gicas, contudo, s6 ocorreu em 
1854 , quando o ingles George Boole 
publicou seu trabalho “Uma investi- 



ga9ao das leis do pensamento”. Este 
conjunto de conhecimentos e hoje cha- 
mado de Algebra Booleana, constituin- 
do-se parte da Ldgica Simbolica ou L6- 
gica Matematica. Na epoca. contudo, 
ninguem sabia exatamente onde aplicar 
tais conhecimentos ou imaginava sua im- 
portancia para a construg'ao dos moder- 
nos computadores e mesmo para sua 
programa9ao. 

Quase um seculo mais tarde, em 
1937 , o americano Claude Elwoood 
Shannon, jovem estudante do MIT, em 
sua tese de mestrado “Uma analise sim- 
bdlica de circuitos de comuta9ao e reles” 
mostrou que a Ldgica Simbolica de 
George Boole descrevia exatamente os 
circuitos ldgicos (ou digitais), a base 
para o projeto dos computadores. Esta 
descoberta lhe valeu o premio Nobel em 
1939 . 

Mais recentemente a partir da deca- 
da de 70 , novas regras logicas tern sido 
enunciadas, para o processamento de 
informa9oes, como o atestam os chama 
dos metodos de Programa9ao Estrutura- 
da e, por outro lado, a Algebra Relacio- 
nal e o Cdlculo Relacional, aplicaveis a 
Bancos de Dados chamados relacionais. 

Para que se possa entender melhor a 
aplica9ao de regras ldgicas no processa- 
mento de informa9oes, seria relevante 
termos uma visao detalhada do que seja 
esta informa9ao e de como ela 6 por nos 
absorvida e estruturada. 

OBTEN^AO DA INFORMA^AO 

A Informagdo tern sua origem na rea- 
lidade que nos cerca. A partir desta rea- 





lidade, por uma opera9ao de abstragao, 
obtem-se o conhecimento. 

0 conhecimento de um ser (ou obje- 
to, ou entidade, ou ente) existente no 
mundo real e constituido por um con- 
ceito (ou ideia), que reflete seu tipo (ou 
essencia, ou natureza), e um termo. 0 
termo 6 o que nos permite comunicar a 
id^ia e, em processamento de dados, e 
chamado de valor. Um termo ou valor 
pode ter diversas representagdes, como 
mostra a figura 1. 

A informa9ao, conceito ou termo, 
existe no mundo Idgico, ou seja, 6 total- 
mente distinta da sua represent a9ao, a 
que comumente chamamos dados , que 
existe no mundo fisico. 



A partir da represent a9§o, a informa- 
9ao podera ser obtida novamente por 
uma opera9ao de interpretagao. Desta 
forma, representa9ao e interpreta9ao sao 
opera9des inversas e correspondem a 
mapeamentos , em sentidos opostos, en- 
tre informa9ao e represen ta9§o. Uma 
representa9ao grafica das opera9oes aci- 
ma descritas encontra-se na figura 2. 

Processando-se os dados, tem-se o 
processamento indireto da informagao. 
Por isto fala-se indistintamente em pro- 
cessamento da informa9ao ou de dados 
quando na realidade s6 se pode proces- 
sar diretamente os dados. 

0 processamento de dados se faz 
usualmente sobre um grande volume de 



informa9ao, cujo tratamento e manipu- 
la9ao e talvez um dos mais graves pro- 
blemas da atualidade. A quantidade de 
informa9ao cresce exponencialmente, 
sendo impossivel ao ser humano proces- 
sar o volume de informa9ao de que ne- 
cessita a cada dia, em seu campo de ati- 
vidade . 

Pode-se perceber que existem dois 
grandes grupos de informa9(Ses: o primei- 
ro deles de informa9ao n 5 o estruturada 
ou ndo formatada , e o segundo de infor- 
ma9ao estruturada ou formatada. A di- 
feren9a entre o tratamento de um grupo 
e do outro, ao menos nos dias atuais, faz 
com que sejam estudados separada- 
mente. £ 




mm 





0 Banco denegtoios. 

Em 5 vezes sem juros 



Excepcional desconto a vista 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAFIX MX 80 E MX 100, 

JA VEM COM PLACA 
PI RESOLUQAO GRAFICA 

m BRASILTRADE CENTER 






THE 
FIRST 
VIDEO 
CASSETE 
ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de duragao, um manual, um 
livro de exercicio e um de texto voce e toda a sua 
familia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estiidio e em 
externas mostrando sempre cenas do nosso cotioiano. 

• Prego de langamento a vista com desconto 



Faqa-nos uma visita em qualquer um 
dos nossos endereqos: 
INFORMACOES: TEL.: 259-1299 

COMPUTER CAMPING 
BTC VIAGENS E TCRISMO 



Av. Epitacio Pessoa. 280 (Esq. Vic. Piraja) — IPANEMA Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 
Assembleia. 10/lj. 112 (Ed. Candido Mendes) — CENTRO Tel.: 222-534.3 
Av. das Americas. 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 325-0481 
Rua 16 de Margo. 80 s/lj. 3 — PETR6POLIS 
Rua dos Mineiros. 55 s/102 — VALENCA 
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A L6GICA na programaqao 




Figura 3 



1 AND ( A$ = "S") A=4 OR B=3 AND A$= "S" 

A 3 OR B 7 C$="FALSO" AND NOT B 3 



Figura 5 










10 INPUT A$ 

20 INPUT B$ 

30 LET C$ = H F' 
40 IF A$ = "V“ 


AND B$ = 1 


N V" THEN 


LET C$ = 


”V M 


50 PRINT " A= M j 


; A$ ; M B= 


B$ ; ’ 


1 A. B= 


c$ 


60 STOP 









Figura 6 



Um bom exemplo desta distir^ao £ 
encontrado nos bancos de dados, indis- 
pensdveis para a implanta^ao de sistemas 
gerenciais. Os sistemas de bancos de 
dados que manipulam informa9ao nao 
formatada sao conhecidos como siste 
mas de recupera^o da informa^ao. Al- 
guns distinguem, nestes ultimos. a busca 
retrospective i, que permite fazer consul - 
tas sobre a informa9ao previamente 
armazenada, da disseminagao seletiva, 
que possibilita a distribui^ao da infor- 
ma9ao previamente classificada de acor- 
do com o perfll de interesse dos usuirios 
do sistema, como dois de seus subsiste- 
mas. 

Os sistemas de bancos de dados que 
manipulam a informa9ao formatada £ 
que sao correntemente chamados de 
bancos de dados, e fazem parte de siste- 
mas de informa9ao empresarial. Talvez 
por isto tenham sido, atd agora, foco de 
maiores aten9oes. 

£ possivel que haja um denominador 
comum entre os dois tipos de banco de 
dados. Todavia, se e quando ocorrerd 
uma convergence no tratamento dos 
grupos de informa9ao £ ainda uma in- 
edgnita. 

ORGANIZA^AO DA INFORMA^AO 
ESTRUTURADA 

A informa9ao estruturada nao £ 
obtida em um unico passo. Deve-se dis- 
tinguir a informagdo inicial da mforma- 
gdo modelada. A informa9ao inicial e 
aquela a que geralmente chamamos oo- 
nhecimento, e se constitui numa infor- 
ma9ao generica, nao estruturada, com 
contomos nao muito nitidos e possivel- 
mente algumas imprecisdes. 



Para que a informa9ao seja proces- 
sada, como dado, ela tern que ser or- 
ganizada e sofrer um processo de refi- 
namento. Portanto, a partir da informa - 
9§o inicial, com base em um modelo, d&- 
se a organiza9ao. Sao necessdrias, desta 
forma, duas etapas de abstra9lo para se 
chegar a informa9ao modelada. Esta se- 
quence de opera9des pode ser vista na 
figura 3 . Nela, esta representada a 
obten9ao de estruturas de informa9ao 
(ou constru90es), compostas por valores 
elementares (atomicos) e suas liga9oes 
(ou relacionamentos, ou nexos, ou de- 
pendences ou conexdes). A partir de 
estruturas mais simples, por composi- 
9ao, £ possivel obter-se estruturas de 
informa9ao mais complexas. 

A rela9ao ldgica entre os diversos 
elementos de uma estrutura de informa- 
9§o ou entre um grupo de estruturas 
simples nao £, contudo, uma necessida- 
de puramente abstrata. Na constru9ao 
de programas de computador, existem 
regras de liga9§o e relacionamento de 
expressdes que devem ser observadas, 
visto que programas nada mais fazem 
que transformar estruturas de informa- 
95o. 

A LOGICA DA ALGEBRA DE BOOLE 

O controle de execu9§o de um pro- 
grama depende da verifica9ao de deter- 
minadas cond^oes, que sao expressas 
por meio de expressdes ldgicas em quase 
todas as linguagens de programa9§o de 
alto nfvel. 

As expressdes ldgicas sao formadas, 
basicamente, com o uso de operadores 
16 gicos como o NOT (nao 16 gico), o 
AND (e 16 gico) e OR (ou 16 gico). Algu- 



mas linguagens incorporam outras opc- 
odes ldgicas como, XOR(ou exclusivo), 
IMP (implicancia) e EQU (equivalence). 
Vamos aqui nos restringir aos tres pri- 
meiros, os mais usuais. 

As opera9oes NOT, AND e OR, na 
Algebra Booleana, sao expressas por ta- 
belas de verdades, onde 0 representa o 
valor falso e o valor 1 representa verda 
de. Na figura 4 estas tabelas sao apresen- 
tadas, onde NOT £ representado por 
- (barra), AND por . (ponto) e OR por 
+ (mais). 

Existe uma precedence na aplica9ao 
dos operadores que £ y da maior para a 
menor prioridade: NOT, AND e OR. 
Alem disto, nao pode haver dois opera- 
dores juntos (como AND OR). Exce9ao 
£ aberta para NOT, que pode ser prece- 
dido de AND ou OR (como AND NOT). 

Uma das instn^oes que utilizam as 
expressSes 16 gicas 6 a de desvio condi- 
cional, que, dependendo da linguagem 
de programa9ao, pode ter a forma IF- 
THEN ou IF-THEN-ELSE. A figura 5 ilus- 
tra a forma92o de algumas expressdes 
booleanas em linguagem BASIC. 

A observa9ao da figura 5 revela que 
os membros de uma expressao 16 gica 
podem conter outras expressoes ldgicas 
(como o sao as expressoes relacionais), 
expressdes aritmdticas ou alfanumericas 
e parentesis 

As expressdes relacionais estabelecem 
uma relagao entre duas expressdes arit- 
mdticas ou alfanumericas atrav^s de ope- 
radores que, na linguagem BASIC, sao 
representados por: < (6 menor do que); 
< = (e menor do que ou igual a); = (6 
igual a);< > (6 diferente de); > = (£ maior 
do que ou igual a); > (6 maior do que). 
As opera9des relacionais permitem com- 
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parar dois valores (ambos numericos ou 
ambos alfanumericos) e estabelecer a re- 
la9ao entre eles, resultando em um valor 
falso ou verdadeiro. 

Um exemplo elementar da aplica9ao 
de opera9des booleanas na programa9ao 
e mostrado na figura 6 , com um progra- 
ma em BASIC que le dois valores boo- 
leanos Falso e Verdadeiro, exibindo na 
tela o resultado do AND. 

A aplica9ao do exemplo na figura 6 
foi feita apenas para dois termos, A e B. 
Todavia, pode ser generalizada para 
qualquer numero de termos. Alem disto, 
ao inves de um unico tipo de operador, 
podera ser avaliada uma expressao que 
contenha os tres tipos de operadores si- 
multaneamente, em qualquer numero e 
ordem. 

Afora as expressoes fundamental, 
existem muitas outras redoes na Alge- 
bra de Boole - todas demonstraveis na 
forma de teoremas — , das quais duas 
tern particular interesse para a progra- 
ma9ao: os dois teoremas de De Morgan, 
apresentados na figura 7 . 

A aplica9ao dos teoremas de De Mor- 
gan permite ao programador inverter as 
condi9oes de teste em desvios ou outras 
instru9oes condicionais. Um exemplo 



com a instru9ao de desvio condicional, 
em BASIC, esta na figura 8 . 

Outras reuses da Algebra Booleana 
tambem podem ser uteis ao programa- 
dor, todavia foge ao escopo deste artigo 
‘examinar todas as possibilidades. 

A LOGICA DA PROGRAMA^AO 
ESTRUTURADA 

A palavra de ordem na programa9ao 
£ estruturar os programas. Novamente 
aqui, a Ldgica esta presente, e nao pode- 
ria ser de outra forma. 

Programar de forma estruturada im- 
plica em obedecer ao raciocinio natural, 
ou seja, descrever os processos como 
eles sao, sem utilizar artificialismos que 
dificultem a compreensao dos progra- 
mas. 

Para tal, e necessario analisar e des- 
crever os problemas como a prdpria in- 
teligencia o faz: do geral para o particu- 
lar, ou, no jargao dos t^cnicos, de cima 
para baixo (top-down). Os problemas que 
nossa inteligencia pode entender de um 
s 6 relance sao muito poucos. Isto nos 
obriga a sucessivas passagens sobre o 
problema, desdobrando-o, a cada etapa, 
em problemas mais simples: por refina- 



mentos sucessivos (step-wise refinement). 
Atem disto, £ preciso utilizar estruturas 
logicas disciplinadas, padronizadas e 
bem conhecidas. 

Os tipos de estruturas ldgicas basicas, 
na programa9ao estruturada, sao tres: 
seqiiencia, alternativa e repeti9ao. Cada 
uma desta s estruturas (ou blocos) cor- 
responde a uma forma natural de racio- 
cinio. Estas estruturas de raciocinio e as 
respectivas estruturas de programa9ao 
sao apresentadas na figura 9 . 

Al£m dos blocos ldgicos da figura 9 
(que sao bdsicos), outros tern sido de- 
senvolvidos, correspondendo a outras 
estruturas de raciocinio. Assim, por 
exemplo, e possivel generalizar a alter- 
nativa para ter multiplos caminhos, cor- 
respondendo a estrutura de alternativa 
miiitipla (case), representada em BASIC 
pela instru9ao ON-GOTO (ou GOTO< 
expressao aritmdtica > em BASIC Sin- 
clair). 

Em muitos casos, tambem e util dis- 
por de uma instru9ao para abandonar 
um bloco de repet^ao que, no caso do 
BASIC, e implementada por uma ins- 
tru9ao IF-THEN dentro do alcance do 
bloco e fazendo o desvio para fora da 

malha de repet^ao. Um caso particular 

» 
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RELATES: 

A: 



COD 


NOM 


DE^ 


019 


JOAO 




047 


JOS6 


100 | 


031 


ANTONIO 





COD 


NOM 




005 


MARIA 




047 


jos6 




— 




3 



C: 





SIGLA | 


100 




200 


ADM | 


300 


B, 




T: 



"^o!T 


NOM 


HEP 


049 


JOAO 


100 


047 


JOSfi 


100 


031 


ANTONIO 


200 


005 


MARIA 


300 



INTERSEgAO 



DIFERENgA 



EZ 




COD 


^!T 


DEF^ 




047 


JOS t 


100 P 



T: 



> 

1 

12 


COD 


NOM 


DEP 


| 




019 


JOAO 


100 




031 


ANTONIO 


200 





PRODUTO CARTES I ANO 



B x C 



COD 


NOM 


DEP 


NDEP 


SIGLA 


005 


MARIA 


300 


100 


PROD 


005 


MARIA 


300 


200 


ADM 


005 


MARIA 


300 


300 


CONT 


047 


jos£ 


100 


100 


PROD 


047 


jos£ 


100 


200 


ADM 


047 


jos£ 


100 


300 


CONT 



PRO J Eg AO 
I T A PEP 

RESTRigAO 



T: 




T: 







COD 


NOM 








019 


JOAO 


100 1 






047 


jos£ 


100 P 



JUNgAO 



T A PEP = NDEP cp 



COD 


NOM 


DEP 


NDEP 


SIGLA 


019 


JOAO 


100 


100 


PROD 


047 


JOSfi 


100 


100 


PROD 


031 


ANTONIO 


" 200 


200 


ADM 



A L6GICA NA PROGRAMAgAO 



da estrutura enquanto-fazer 6 a estru- 
tura para-fazer, que no BASIC corres- 
ponde a malha de repetigao construida 
com FOR-TO-STEP e NEXT. 

Deve-se observar que os blocos fun- 
cionais basicos tem uma s6 entrada e 
uma s6 saida. Caso se programe em 
BASIC, contudo, esta caracteristica po- 
de nao ficar muito clara. Isto se deve ao 
fato de que o BASIC nao 6 uma lin- 
guagem estruturada e, portanto, 6 preci- 
so simular muitas das estruturas atraves 
de instrugoes IF-THEN e GOTO. 

A LOGICA DA ALGEBRA 
RELACIONAL 

Ban cos de dados sao importantes 
intrumentos para a implantagao de siste- 
mas de informagao, nao apenas em gran- 
des computadores mas tambdm em 
micros. 

Do modelo ou vista que o usuario 
tem da estrutura de dados na base de 
dados, resultam tres enfoques gerais: 
em redes, hierdrquico e relacional. 

0 modelo relacional, em particular, 
apresenta maior interesse devido a sua 
simplicidade. Os arquivos de dados sao 
vistos como tabelas em que cada linha 
corresponde a urn registro de dados. 
Cada registro, como e usual, engloba 
diversos campos. No modelo relacional, 
todavia, estas estruturas de dados tem 
nomes prdprios. A tabela ou arquivo 6 
chamada de relagao, por analogia com o 
termo correspondente da teoria dos con- 
juntos, de onde a teoria do modelo rela- 
cional derivou. Um registro 6 chamado 
de tupla (de n-tupla). 

Por analogia com as operagoes sobre 
conjuntos matematicos, diversas opera- 
goes foram definidas sobre as relagoes. 
Deve-se observar que o resultado de 
uma operagao sobre relagoes d, sempre, 
uma nova relagao. As principais opera- 
goes sao uniao; intersegao; indiferenga; 
produto cartesiano; projegao; selegao 
(restrigao); jung5o e divisao. 

A operagao de unido , entre as rela- 
g6es A e B do mesmo tipo, 6 represen- 
tada por T A u B, onde T 6 a relagao 
resultante. Corresponde as operagoes de 
inter calagao ou inclusao. 

A operagao de intersegao, entre as re- 
lagoes A e B do mesmo tipo, 6 represen- 
tada por T^AflB, onde T i a resultan- 
te. Corresponde a operagao de extragao. 

A diferenga, entre as relagdes A e B 
de mesmo tipo, 6 representada por 
T A — B. Corresponde a operagao de 
exclusao. 

A operagao produto cartesiano, das 
relagoes A e B, de tipos diferentes, 6 
representada por T«-A x B. Corresponde 
a concatenagao das tuplas (regisros) de 
ambas as relagoes A e B, segundo regras 
similares as da matemdtica, aplicadas a 



Figura JO 

itens de dados escolhidos. 

A operagao de projegao, sobre uma 
relagao A, e representada por T«- A (X, 
Y,..., Z), onde X,Y,... e Z s5o atributos 
da relagao. Esta operag§o corresponde a 
uma eliminagdo de colunas de uma rela- 
gao. Restarao apenas as colunas de 
nomes X,Y... e Z, fazendo-se a elimina- 
gao tambem de linhas repetidas, isto 6, 
nao sao permitidas linhas duplicadas. 

A operagao de restrigdo, sobxe uma 
relagao A, 6 representada por T •«- A 
(X = a, Y = b, Z= c), onde X,Y,... e Z 



sao atributos e a, b,... e c sao os valor es 
dos atributos. Esta operagao determina 
a selegao de tuplas (registros) que aten- 
dem a condigao estabelecida, isto 6, 
possuem como valor dos atributos X, 
Y,... e Z os valores a, b,... e c, respectiva- 
mente. Corresponde a uma operagao de 
extragao ou de encontrar registros. 

A operagao de jungdo, das relagoes A 
e B, de tipos diferentes, 6 representada 
por T A (P= Q) B, onde P 6 um atribu- 
to da relagao A, e Q € um atributo da 
relagao B. Sera feita a concatenagao das 



tuplas das relagoes A e B, quando estas 
tiverem os valores dos atributos P e Q. 
Corresponde ao estabelecimento de uma 
ligagao. 

A operagao de divisao, do conjunto 
A pelo conjunto B, 6 representada por 
T <-A (X : Y) B, onde X e um atributo 
de A e Y e um atributo de B. Sera feita 
uma restrigdo sobre B com relagao a Y. 



A seguir, serao relacionadas em A as 
tuplas que possuem, sob o atributo X, a 
seqiiencia completa dos valores dos atri- 
butos da restrigao obtida em B, sob o 
atributo Y. Corresponde a uma restrigdo 
multipla, isto e com base em um con- 
junto de valores de um atributo. 

A Algebra Relacional e completa, 
possuindo todas as operagoes necessarias 



ao processamento de informagoes. Sua 
grande vantagem e que nao existem de- 
pendences, seja com relagao aos dados, 
a estrutura de dados ou a metodos de 
acesso que sao ignorados. Exemplos de 
algumas das operagdes da Algebra Rela- 
cional. com base em tres tabelas relacio- 
nais. A, B e C, encontram-se na Figura 
10 . 
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BANCOS DE DADOS — Com a populariza^ao do hardware os usuarios 
de micros passaram a acessar grandes bancos de dados. 

Veja alguns conceitos sobre este assunto 



Administracao 

# 

de dados e os micros 

Antonio L Furtado • Daniel A. Menasce 



B ancos de dados sdo hqje reconheddos como uma das 
aplica9<5es mais importantes de computadores. Sdo 
componentes essenciais de sistemas de informa^o, 
numa epoca em que a informa^o se coloca como 
um dos bens de produ9do. 

Quando uma empresa adota a abordagem de bancos de da- 
dos, automaticamente se compromete a manter um controle 
centralizado da infoima9do de que disp( 5 e. De inicio,a prdpria 
localiza9ao fisica da informa9ao 6 centralizada. Gradualmente, 
as empresas maiores tendem a repartir a informa^o pelas areas 
geogrdficas onde exercem suas atividades, passando a uma or- 
ganiza9^o de sistemas distribuidos. Mas, mesmo neste caso, o 
controle da informa^o permanece centralizado. 

Para controlar a informa^o, cria-se a fun9do do adminis- 
trador de dados, cujo instrumento fundamental -de trabalho 
s2o os diciondrios de dados, geralmente ligados aos bancos de 
dados. 0 administrador de dados deve saber quais informa96es 
sSo disponiveis e onde se encontram, alem de disciplinar a 
cria9SiO de novos sistemas de informa9do atravds da empresa. 

O advento dos microcomputadores veio criar novas e inte- 
ressantes oportunidades para o uso de bancos de dados, mas 
tambdm colocou certos problemas. Antes de discutir tais opor- 
tunidades e problemas, vamos rever algumas no90es de bancos 
de dados (o leitor j d familiarizado com o assunto poderd saltar 
a prdxima se9do). 



ALGUNS CONCEITOS 



Bancos de dados sdo conjuntos de arquivos interligados de 
alguma forma. 0 tipo mais simples de “liga^o” consiste na 
existencia em dois ou mais arquivos de valores compardveis. 
Considere os dois arquivos abaixo, onde EMP contdm informa- 
96es sobre empregados e DEP informa90es sobre depart amen- 
tos. 



EMP 



nome 


salario 


lotagao 


Pedro 


100 


fin 


Maria 


200 


mat 


Rui 


100 


mat 


Laura 


80 


fin 


DEP 



sigla 


sede 


mat 


Rio 


fin 


S.P. 



Note que as colunas lota^o, em EMP, e sigla, em DEP, contem 
valores da mesma natureza (abreviaturas de nomes de depar- 
tamentos). Dizemos que os atributos lotado e sigla provem 
do mesmo dominio de valores, e sSo portanto compardveis. 
Considere agora as seguintes consultas a esse banco de dados: 

1 . Em‘qual departamento Pedro estd lotado? 

2 . Qual a sede do departamento financeiro? 

3 . Em que cidade Pedro trabalha? 

Observe que as duas primeiras consultas ndo tern nada de 
especial, e podem ser respondidas percorrendo apenas um ar- 
quivo (EMP, para a primeira, e DEP, para a segunda). Jd a ter- 
ceira pergunta 6 tipica de bancos de dados. Temos de procurar 
a linha (registro) de EMP em que se en contra Pedro, para des- 
cobrir em que departamento estd lotado, e depois procuramos 
em DEP a linha desse departamento para finalmente desco- 
brir em que cidade estd sediado (entende-se que um empregado 
trabalha na cidade sede de seu departamento). 
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Essa maneira simples de visualizar arquivos como tabelas, 
e de combinar a informa9d'o contida em uma com a que existe 
nas outras atraves da compara9do de valores, 6 uma das carac- 
terfsticas do chamado modelo de dados relacional. Um modelo 
de dados consiste de certas estruturas de dados (tabelas, no ca- 
so do modelo relacional) que obedecem a certas regras e sdo 
manipuladas por certas opera9<3es. Uma das operates mais 
importantes do modelo relacional e' a opera^o de jun9do, que 
permite justamente associar informa95es contidas em duas ta- 
belas atraves da compara9do de valores. 

Alem do modelo relacional, hi dois modelos importantes - 
o hierdrquico e o de redes — , os quais envolvem estruturas de 
dados mais complexas. Os diversos sistemas para definire ma- 
nipular bancos de dados (Sistemas de Gerencia de Bancos de 
Dados — SGBDs) seguem, em geral, um desses modelos, con- 
forme os exemplos abaixo: 

— modelo hier^rquico - IMS, sistema 2000 

— modelo de redes - 1 DMS, DBMS- 10 , DMS- 1 100 , IDS-II 

— modelo relacional — SQL/DS, QBE, INGRES 

Nenhum desses exemplos de SGBD e voltado para micro- 
computador, mas essa falta serd corrigida maisadiante. Antes, 
gostarfamos de observar que, qualquer que seja o modelo de 
dados seguido por um SGBD, e Util que o SGBD disponha de 
mais algumas estruturas auxiliares para tomar o acesso aos 
dados mais eficiente. Dentre essas estruturas auxiliares desta- 
cam-se os indices. 

Um indice 4 como um rndice remissivo de um livro. Quan- 
do queremos achar onde algum assunto estd descrito em um li- 
vro, ndo precisamos folhear o livro todo — podemos procurar 
no indice. Suponha a seguinte consulta sobre o mesmo banco 
de dados: 

4 . Quais empregados est£o no nivel salarial 100 ? 



A resposta a esta consulta e' mais rdpida se tivermos um indice 
como o que mostramos a seguir (6 claro que a vantagem dos 
indices e' tanto maior quanto maior for o arquivo sobre o qual 
estd definido, o que ndo e o caso no nosso pequeno exemplo, 
dado apenas para ilustrar a ideia): 




As setas deste exemplo correspondem aos endere90S (localiza- 
9do fisica) dos registros que contem cada valor de nivel sala- 
rial. Note tambem que, no indice, os niveis salariais estdo em 
ordem e que assim mostram EMP classificado (indiretamente) 
por nivel salarial. 



O DESAFIO DOS MICROS 



Atd hd algum tempo se pensava que para manipular bancos 
de dados seriam necessdrios equipamentos de grande porte. 
Hoje existem numerosos Sistemas de Gerencia de Bancos de 
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administraqAo de dados e os micros 



Dados (SGBDs) que rodam em micros. Aos poucos, as dificul- 
dades inerentes aa tamanho da memdria, capacidade de ar- 
mazenamento em memdria secundffria, eficiencia dos algo- 
ritmos de acesso, uso compartilhado etc. vffo sendo vencidas. 

A tftulo de ilustrafffo, podemos verificar que hoje em dia ]& 
existem microcomputadores com memdria principal com capa- 
cidade da ordem de 700 Xbytes, e ji se estima que, dentro de 
seis meses, os fabricantes brasileiros de microcomputadores es- 
tarffo equipando as suas mdquinas com discos Winchester cuja 
capacidade pode variar de 30 a 70 Mbytes por unidade. Estas 
observaVes nos mostram que atualmente )& 6 viffvel pensar no 
desenvolvimento de sistemas aplicativos complexos baseados 
em bancos de dados em microcomputadores. 

A medida que o volume de dados a ser manipulado cresce, 
torna-se mais crftica a eficiencia dos sistemas de gerencia de 
bancos de dados para micros. £ precisamente neste ponto que 
os sistemas de uso “domestico” se distinguem dos sistemas de 
uso profissional. No entanto, os micros colocam um problema: 
como seu baixo custo estimula o uso no estilo de computa 9 ffo 
pessoal, usuffrios individuals come^am a criar seu s prdprios 
bancos de dados, dificultando o esquema de controle do admi- 
nistrador de dados. 

Para que sffo esses bancos de dados “pessoais”? As vezes sffo 
realmente do interesse restrito de um usuffrio, como listas de 
endere 90 s, agenda, controle de correspondence etc. Em outros 
casos sffo sumffrios, periodicamente atualizados, de grandes 
bancos de dados operacionais da empresa. Esses sumirios (ar- 
quivos-resumos) sao usados por individuos de nfvel gerencial 
para apoio a tomada de decisffo, algumas vezes sendo tratados 
por pacotes estatfsticos e de desenho de grffficos. 

Um banco de dados em micro pode estar isolado. Mas tam- 
bem pode estar em liga 9 ffo permanente com outros bancos 
de dados, ou por ser o micro conect4vel como terminal ao 
equipamento principal da empresa, ou por estar ligado com ou- 
tros micros em rede local. Esta ultima modalidade 6 uma forte 
tendencia no processo de automa 9 ffo de escritdrio. 

A tarefa do administrador de dados se dificulta. A nffo ser 
que ele receba apoio da dire 9 ffo, nffo conseguiri man ter contro- 
le (nem mesmo conhecimento) da inform a^o disponivel na 
empresa. Aldm de exercer esse controle, cabe a ele assessorar 
os usuffrios que desenvolvem seus bancos de dados em micros, 
os quais, em geral, nada sabem sobre a abordagem e as tecnicas 
de projeto racional de bancos de dados (tais como anfflise es- 
truturada, modelos de dados etc.). 



O QUE ESTA ACONTECENDO 



A tecnologia de bancos de dados para micros continua a de- 
senvolver-se, especialmente com o aumento de eficiencia no 
acesso atrav^s de indice (freqiientemente usando estrutura de 
^rvores balanceadas). Para combinar a eficiencia com a facili- 
dade de uso, sffo adicionadas interfaces amistosas para com o 
usuffrio, em estilo fiel ou parecido com o padrffo estabelecido 
pelo modelo relacional. 

Os SGBDs relacionais, como o dBASE II, ganham aceita 9 ffo 
devido a sua interface humana voltada para o nffo-especialista 
em processamento de dados. Infelizmente, sua eficiencia pode 
deixar a desejar quando cresce o tamanho dos bancos de da- 
dos. Novos sistemas, como SBD/TS, enfatizam a eficiencia no 
acesso aos dados, utilizando para isso metodos de acesso bas- 
tante avan 9 ados tais como 2rvores balanceadas. O modelo de 
dados do SBD/TS e uma versffo generalizada do modelo de 
redes, onde sffo permitidos relacionamentos (interleaves) 1 :1 , 
l:n, n:l e n:m. Este sistema esti mais voltado para o progra- 
mador de aplica 90 es que pode desenvolver os seus programas 



em uma linguagem de programa 9 ffo de alto nfvel, tal como 
PASCAL ou BASIC, na qual os comandos de manipula 9 ffo de 
dados estffo embutidos. Interfaces amistosas para uso por nffo- 
especialistas em processamento de dados serffo desenvolvidas. 

Uma recente publicaVo fez anfflise comparativa dos diver- 
sos SGBDs disponiveis no mercado americano, analisando cer- 
ca de 33 sistemas. Seus pre 90 S variam desde poucas dezenas de 
ddlares at£ valores prdximos a US$ 6,000. Esta varia^o ilus- 
tra as diferen 9 as em complexidade e poder dos pacotes anali- 
sados. 



UMA TENDfiNCIA FUTURA 



Desde que o JapSb anunciou seu projeto de 5? gera^o, os 
esfor 9 os na drea de Inteligencia Artificial atrairam uma consi- 
dered aten^o. Destacam-se conceitos complemen tares: ba- 
ses (ou bancos) de conhecimento e sistemas especialistas. 
Costuma-se dizer que, assim como na Ultima ddcada a compu- 
taq&o evoluiu do processamento de dados para o processa- 
mento de informa 9 ^o, agora come 9 amos a evoluir para o pro- 
cessamento de conhecimento. Este Ultimo 6 constituido de fa- 
tos e de regras gerais que, aplicadas sobre os fatos atraves de al- 
gum me can ism o de interference, produzem novos fatos. 

Um banco de dados convencional contdm apenas fatos, en- 
quanto um banco de conhecimentos contdm tambem regras 
gerais. Sistemas especialistas com capacidade inferencial po- 
dem manipular esses bancos de conhecimentos para executar 
tarefas complexas, como o diagn6stico mddico. 

Para construir sistemas especialistas jff sffo disponiveis al- 
gumas linguagens voltadas para micros, como o micro-PRO- 
LOG. Um projeto em andamento na PUC/RJ visa colocar a 
linguagem SAFO (de escopo mais geral que PROLOG e tam- 
Wm desen volvida na PUC/RJ) tambdm disponivel em micro. 
Naturalmente, o problema de eficiencia quando se adiciona 
“inteligencia” aos bancos de dados se toma mais complexo, 
mas talvez tenhamos aplicaVes relativamente grandes imple- 
mentadas sobre micros em future proximo. 
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Linguagem de maquina nao e um bicho de sete 
cabe^as. E ajuda voce — e como — a dar mais 
rapidez a seus programas em BASIC. Experimente so. . . 



Manipulacao de video 
em Assembler 

Mario Jose Bittencourt 



lgumas vezes, na tentativa de acelerar seu programa 
em BASIC, voce esbarra nos limites da linguagem e 
passa a trabalhar em Assembler. O que talvez voce 
nao saiba e como apresentar, no video, dados nessa 
linguagem. £ justamente para voce que este artigo foi preparado. 

O metodo mais simples disponivel nos micros com logica 
Sinclair para apresentar um carater no video e carregar o acu- 
mulador do Z-80 com o codigo do career e executar a instru- 
9 ao RST 16. Essa instru^ao equivale em BASIC a PRINT CHRS 
ACUMULADOR, ou seja, imprime o cardter desejado. A ope- 
ra^ao, porem, tern uma restr^ao: o cardter deve estar no inter- 
valo de 0 a 63 ou de 1 28 a 1 91 , isto 6, sua representasao bina- 
ria deve ter o bit 6 ressetado. Essa restri^ao existe porque os 
caracteres fora desses intervalos nao sao usados pelo TK ou en- 
tao sua representa 9 ao no video ocupa mais de um byte, con- 
forme voce podera observar dando uma olhada no manual. 

£ conveniente que para acompanhar este artigo voce tenha 
em seu micro um programa editor de Assembler, como o mo- 
nitor publicado na MS n9 23, ou o Micro Bug. Por exemplo, 



para que 


seu micro escreva a letra M, execute: 


ENDERECO 


conteOdo 


mnemGnico 


DESCRigAO 


16514 

16516 

16517 


62-50 

215 

201 


LD A, 50 
RST 16 
RET 


:Carrega o carater 
: Imprime o carater 
sRetorna 



0 ponto de entrada dessa rotina e das demais que consta- 
rem deste artigo e 16514 e os valores estarao todos em deci- 
mal. 

Se voce quiser que um byte com bit 6 setado seja impresso 
no vfdeo, voce devera carregar o acumulador com esse byte e 
executar CALL 2379. Por exemplo, para apresentar a palavra 
REM, execute: 

16514 62-234 LD A, 234 :Carreqa o acumulador com ’REM' 

16516 205-75-9 CALL 2379 : Imprime o carater 

16519 201 RET 

(note que 234- 11101010) 

Existe outro metodo de impressao no video e que tern a 
vantagem de ser mais rapido, porem so 6 executavel em micros 
com 16 Kb ou mais de RAM. Ele consiste em apontar com o 
par HL uma regiao da memdria que 6 usada como buffer do vi- 
deo e entao gravar diretamente ai o carater desejado, desde que 



ele respeite a limita^ao imposta pelo bit 6, conforme foi expli- 
cado anteriormente. 

O buffer e demarcado pelo conteudo dos endere 90 s 16396 
e 16397 (DFILE) e se organiza da seguinte forma: um carater 
1 18 indicando inicio do buffer, seguido de 24 linhas compos- 
tas de 33 caracteres: 32 utilizados para texto e um codigo 1 18 
encerrando a linha. 

Essa organiza 9 ao da ao buffer um total de 793 bytes, dos 
quais 768 sao utilizados para texto e 25 para controle. Para 
que seja impresso desse modo um M inverso, execute: 



16514 


42-12-64 


LD HL, (16396) 


: HL aponta 


buffer 


16517 


35 


INC HL 


: HL aponta 
: linha 


a la. coluna da la 


16518 


54-178 


LD ( HL ) , 1 78 


:Grava o carater 


16520 


201 


RET 







Contudo, esse metodo nao e aplicdvel em micros com 2 Kb 
porque o buffer, neste caso, se organiza de modo diferente. 
Por questao de economia de memoria fica reduzido ao codigo 
1 18, que indica o inicio do buffer, seguido de 24 codigos 118, 
indicando o final das linhas. Desse modo, o buffer se expande 
a medida em que o RST 16 vai colocando caracteres, economi- 
zando assim memoria para calculos e outras tarefas. 

Em 2 Kb nosso metodo de impressao simplesmente apagaria 
o codigo 118, que indica final da linha 1 e destruiria o progra- 
ma da memoria. 

APRESENTANDO UMA STRING 

Vamos recordar o que significa RST 16. A instru^ao impri- 
me um carater no video de forma similar a um PRINT CHRS 
ACUMULADOR; . O ponto e virgulaem BASIC significaria pa- 
ra o proximo PRINT imprimir logo apos o ultimo carater im- 
presso. £ exatamente isso que o RST 16 faz. Logo, para escre- 
ver uma string podemos executar: 



16514 


62-50 


LD A, 50 


rCarrega o acumulador com 


16516 


215 


RST 16 




16517 


62-38 


LD A, 38 


: 'A' 


16519 


215 


RST 16 




16520 


62-55 


LD A, 55 


: ' R* 


16522 


215 


RST 16 




16523 


62-46 


LD A, 46 


t*I* 


16525 


215 


RST 16 




16526 


62-52 


LD A. 52 


: ’O' 


16528 


215 


RST 16 




16529 


201 


RET 





Isso funciona perfeitamente, mas imagine como escrever 




uma string com 100 ou 200 caracteres. No caso seria necessd- 
rio fazer a impressSo de modo indireto, executando: 



16514 


33-141-64 


LD HL, 16525 


:HL aponta a string 


16517 


6-5 


LD B , 5 


:Prepara contador para 5 letras 


16519 


126 


LD A, ( HL) 


:Le o carater da string 


16520 


35 


INC HL 


: HL aponta o proximo carater 


16521 


215 


RST 16 




16522 


16-251 


DJNZ 


: Repete 5 vezes 


16524 


201 


RET 




16525 


50-38-55-46 




:Mensagem 'MARIO* 


16529 


52 







Para facilitar, os micros trazem em sua ROM algumas roti- 
nas que visam facilitar a impressao de uma string. Apontando 
com DE uma string, definindo em BC seu comprimento e exe- 
cutando CALL 2923, a string sera impressa no video. Como 
essa rotina se utiliza da instru 9 ao RST 16, ela contoma qual- 
quer problema que possa surgir quanto a impressao de um ca- 
rter com o bit 6 setado ou ressetado. 

Voce tambem dispoe em Assembler do comando PRINT AT, 
do BASIC, acessivel do seguinte modo: define-se em B a linha, 
em C a coluna e executa-se CALL 2293, que equivale a PRINT 
AT B, C; . Veja entao como se escreve no meio do video ‘ALO 
MAMAE. EU JA SEI ESCREVER EM ASSEMBLER NO TK’: 



16514 


1-0-10 


LD BC , 2560 


: B- 1 0 e C-0 


16517 


205-245-8 


CALL 2293 


: PRINT AT B,C; 


16520 


17-146-64 


LD DE, 16530 


: DE aponta a string 


16523 


1-47-0 


LD BC , 4 7 


: BC contem o comprimento 


16526 


205-107-11 


CALL 2923 


:Imprime*a string 


16529 


201 


RET 




16530 


38-49-52-0 




s * ALO MAMAE. EU JA SEI ESCREVER 


16534 


50-38-50-38 




EM ASSEMBLER NO TK ' 


16538 


42-27-42-58 






16542 


0-47-38-0 






16546 


56-42-46-0 






16550 


42-56-40-55 






16554 


42-59-42-55 






16558 


0-42-50-0 






16562 


38-56-56-42 






16566 


50-39-49-42 






16570 


55-0-51-52- 






16574 


0-57-48 







Como voce observou, essa rotina nao separa silabas, logo 
voce devera reformar a string, de modo que a frase suija perfei- 
tamente legivel no video. 

As rotinas de PLOT e UNPLOT tambem sao acessiveis em 
Assembler. Basta colocar em B a abcissa e em c a ordenada do 
ponto a ser plotado (ou unplotado) e executar CALL 2994. 
Para a rotina identificar se a op$ao 6 PLOT ou UNPLOT, voce 
devera especificar no endere 90 16432 (SXEN) o valor 100 para 
PLOT e 200 para UNPLOT. Para plotar o ponto (21,31), exe- 
cute: 



16514 


33-48-64 


LD HL. 16432 


: HL aponta SXEN 


16517 


54-100 


LD (HL).IOO 


rEspecifica PLOT 


16519 


1-31-21 


LD BC , 5407 


:B«21 e C«31 


16522 


205-178-11 


CALL 2994 


: PLOT B,C 


16525 


201 


RET 





Caso voce necessite, a rotina de CLS esli no endere 90 2602 
e SCROLL no 3086. O cursor que aponta a pos^ao do pr6xi- 
mo RST 16 6 o mesmo do PRINT para todas as rotinas da 
ROM que manipulem o video. Ele esti guardado nos endere 90 S 
16398 e 16399 (POSPR). 

Lembre-se que as rotinas utilizadas at£ aqui alteram todos 
os registradores e por isso 6 conveniente que voce, antes de 
chama-las, salve -as por PUSH se contiverem um dado importan- 
te, para depois restaura-las por POP. Se o seu TK tern 16 Kb 
ou mais, voce dispde de algumas outras rotinas de impressao 
que sao mais rapidas do que as descritas anteriormente. 

Por analogia ao metodo anterior, podemos escrever uma 
string no buffer do video diretamente, endere 9 ando os cddigos 
sequencialmente: 



15414 


33-151-64 


LD HL, 16535 


16517 


237-91-12-64 


LD DE, ( 16396) 


16521 


19 


INC DE 


16522 


1-14-0 


LD BC , 1 4 


16525 


126 


LD A, ( HL) 


16526 


18 


LD ( DE) ,A 


16527 


19 


INC DE 


16528 


35 


INC HL 


16529 


11 


DEC BC 


16530 


120 


LD A, B 


16531 


177 


OR C 


16532 


32-247 


JR NZ , 247 


16534 


201 


RET 


16535 


50-46-40-55 




16539 


52-0-56-46- 




16543 


56-57-42-50 




16547 


38-56 





: HL aponta string 

: DE aponta la. coluna da la. linha 
:BC contem o comprimento 
:Le o carater da string 
:Grava o carater no buffer 
:Acerta apontador do buffer 
:Acerta apontador de string 
: Decrements contador 

: Testa se contador»0 
:Se nao, repete 



Porem, o Z-80 tern uma instru 9 ao que executa automati- 
camente a transference de um byte apontado por HL para o 
byte apontado por DE e ainda incrementa os apontadores e 
decrementa o contador: LDI. Observe o mesmo programa mo- 
dificado: 



16514 


33-148-64 


LD HL, 16532 


16517 


237-91-12-64 


LD DE, (16396) 


16521 


19 


INC DE 


16522 


1-14-0 


LD BC, 1 4 


16525 


237-160 


LDI 


16527 


120 


LD A , B 


16528 


177 


OR C 


16529 


32-250 


JR NZ , 250 


16531 


201 


RET 


16532 


50-46-40-55 




16536 


52-0-56-46- 




16540 


56-57-42-50 




16544 


38-56- 





Nosso programa pode ser simplificado ainda mais se lem- 
brarmos que o Z-80 tambem tern a instru 9 ao LDIR, que exe- 
cuta um LDI e o repete at£ BC = 0 Veja agora como ficou o 
nosso programa: 



16514 


33-144-64 


LD HL, 16528 


16517 


237-91-12-64 


LD DE. ( 16396) 


16521 


19 


INC DE 


16522 


1-14-0 


LD BC , 1 4 


16525 


237-176 


LDIR 


16527 


201 


RET 


16528 


50-46-40-55 




16532 


52-0-56-46- 




16536 


56-57-42-50 




16540 


38-56 





Nem o LD, nem o LDI, nem o LDIR respeitam o 1 1 8 que 
indica o final de uma linha no buffer do video. Logo, se seu 
texto a ser impresso tiver mais de 32 caracteres, ele devera ser 
dividido em linhas de 32 caracteres, separando-as com um c6- 
digo 118, para que o buffer nao se altere. Para escrever, por exem- 
plo: MEU TK E UM MICROCOMPUTADOR PESSOAL’. que 
e uma string com 35 caracteres, divida-a em ‘MEU TK E UM 
MICROCOMPUTADOR PESSV1 18+OAL’. Porem, para nao 
contrariar sua professora de Portugues, reagrupe em ‘MEU TK 
E UM MICROCOMPUTADOR PES-V118+‘SOAL\ 

Note que agora sua string tern 37 caracteres, caso contrario 
seu programa nao funcionaria. O buffer pode conter ate 768 
caracteres. Nao exceda essa quantidade ou voce provocard um 
erro irreparavel em seu programa. 

Vamos dar agora um exemplo de como mostrar um niimero 
no video, ou seja, vamos transforma-lo em uma string decimal 
e mostrd-la por RST 16. Voce, como exercicio, poderd refor- 
mar o programa de modo que a impressao seja feita diretamen- 
te no buffer. 



16514 


62-5 


LD A, 5 


•Contador para 5 algarismos 


16516 


245 


PUSH AP 


rSalva contador 


16517 


229 


PUSH HL 


:Salva o numero 


16518 


33-1-0 


LD HL, L 


:Calcula o divisor 


16521 


61 


DEC A 




16522 


40-8 


JR Z,8 




16524 


41 


ADD HL, HL 




16525 


84 


LD D, H 




16526 


93 


LD E, L 




16527 


41 


ADD HL, HL 




16528 


41 


ADD HL, HL 




16529 


25 


ADD HL , DE 




16530 


24-245 


JR 245 




16532 


235 


EX DE, HL 


:CoIoca divisor em DE 


16533 


225 


POP HL 


:Restaura o niimero 


16534 


62-27 


LD A. 27 


: Prepara quociente 


16536 


60 


INC A 


: Divide HL por DE 


16537 


237-82 


SBC HL, DE 




16539 


48-451 


JR NC , 25 1 




16541 


25 


ADD HL,DE 


:HL«resto e acum. -quociente 


16542 


215 


RST 16 


: Most ra o algarismo 


16543 


241 


POP AF 


:Restaura contador 


16544 


61 


DEC A 




16545 


32-225 


JR NZ , 225 


: Repete 5 vezes 


16547 


201 


RET 





Esse programa apresenta HL no video em cinco algarismos 
decimals, mas voce pode fundir a cuca um pouquinho e am- 
pliar a rotina para que ela nao imprima os zeros a esquerda do 
algarismo. 



Mtrio w lost Bittencourt tem 16 anos, faz o 39 ano co/egial na Etcola Es- 
tadual de Segundo Grau Protestor Jos4 Sant 'Ana de Castro , em Cruzei- 
ro, SP, e pretende ini dar o curso de Processamento de Dados em uma 
Facuidade no prdximo ano. 
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TRS-80 TRS-80 TRS-80 TRS-8 



Fuja 

Sergio Orioli Parreiras 



enquanto e tempo! 



E ste jogo foi desenvolvido para 
computadores da linha TRS-80 
e com ele voce poderd testar 
como andam seus reflexos e sua 
coordenasffo motora. 

Funciona da seguinte maneira: voce 
controla urn tra^o e o computador 
outro, sendo que o seu tra^o nSo poderd 
se chocar consigo mesmo, nem com o 
do computador e nem com as barras de 
limite. Se voce conseguir desvid-lo atd 
o t^rmino do tempo, ganha o iogo. 

Voce pode escolher entre dois niveis 
(fdcil e avan 9 ado). Para movimentar 
seu tra 90 use as teclas (Q) para subir, 

(A) para baixar, ( < ) para a esquerda e 
( > ) para a direita. 

Observa 9 £o: para eventuais 
adapta^Oes, sugerimos a leitura do 
artigo BASIC, tres faces da mesma 
linguagem, de Orson Voerckel Galvdo, 
publicado em MICRO SISTEMAS 
numeros 19 e 20. 



Sdrgio Orioli Parreiras tem 13 an os, cursa a sd- 
tima sdrie do primeiro grau e tem um DGT - 
100 desde agosto de 1983. 



Fuga 



1 9 -«-fuga-l- Programs de Serg 

io Orioli Parre i ras 

Rio de Janeiro, 23 de janeir 
o de 1984 

5 CLSs IF CX*0 THEN 130 ELSE PRI 
NT31 60, "fuga"* 3224, STR INGK4, 191 
) ;3348/ / escolha o n i ve 1 : " , 3404 , " 
i> FAC XL" ,3470, "2 ) AVANCAD0" , : X 
X=RND < 127 ) s YX*RND < 30 ) s ZX=RND<1 
27): 8X*RND( 35) 

10 Al= INKEYt : IF At* "' THEN 10 E 
LSE IF AtO"i" AND A*<>"2" THEN 
10 ELSE LX*VAL<A*> 

15 VX* 500/LX: CLS: FOR IX*0 TO 1 
27: SET < IX, 0) : SFT<IX,40): NEXT: 
FOR IX*0 TO 40: SE7(0,IX): SFT< 
127, IX): NEXT: PR INT3896, "TEMPO: 
// m 

20 AS=INKEYt : IF Ai="Q" OR AS*"g 
" THEN F%*2 ELSE IF Ai="A" OR At 
*"a" THEN FX*1 ELSE IF At*"," TH 
EN FX=3 ELSE IF At*"." THEN FX* 
4 

25 ON FX GOTO 30,35,40,45 
30 YX*YX+ 1 : GOTO 50 
35 YX=YX-1 * GOTO 50 
40 XX*XX-i s GOTO 50 
45 XX*XX+i 

50 IF POINT < XX , YX J *-i THEN CLS« 
PRI NT3329 , CHR t ( 23 > , "VOCE BATEU 
!!": GOTO 120 ELSE SET(XX,YX) 

55 AX*RND ( 2 ) : ON AX GOTO 60.65 



60 IF XX)ZX THEN 70 ELSE 80 
65 IF YX)BX THEN 90 ELSE 100 
70 ZX=ZX+LX : IF ZX>127 THEN ZX=1 
27 

75 GOTO 105 

80 ZX*ZX-I.X: IF ZX<0 THEN ZX*0 
85 GOTO 105 

90 BX*BX+1 : IF BX>47 THEN BX*47 
95 GOTO 105 

100 BX-BX-l: IF BX<0 THEN BX*0 
105 0X*0X-l: PRINT3903, ,USING"M« 
W' ;VX: II VX*0 THEN 115 ELSE IF 

ZX=XX AND BX=YX THEN CLS: PRINTS 
394 , CHRt < 23) , " . ..VOCE PERDEU. . 

: GOTO 120 

110 SET* 7.X, BX): GOTO 20 

115 FOR IX=1 TO 3000: NEXT: At*I 

NKFYt: CLS: PR INT3460 , CHR t ( 23 ) , " 

VOCE GANH0U!H"« GOTO 125 

120 PRINT TAB < 8 >"TENTE OIJTRA VEZ 

125 At* INKEYt i IF At*"" THEN 125 
ELSE GOTO 5 

130 CX*i * CL'S: PRlNT3i53,"fuga", 
3259, "Use: ",3392, "(g) PARA SUBIR 
",3456, "(a) PARA BAI XAR" , 3520 , " ( 
>) PARA A DIREITA", 3584, "<< > PAR 
A A ESQUERDA", 3715," VOCE GANHA 
0 JOGO QUANDO 0 TEMPO ACABAR": F 
OR IX=0 TO 127: SET<IX,4>: SET(1 
X , 10) : SET < IX, 15) 

135 SET ( IX, 36) : SET<IX,32): NEXT 
: FOR IX*4 TO 35: SET(0,IX): SET 
<127, IX): NEXT 

140 At*INKEYt: IF At*"" THEN 140 
ELSE GOTO 5 



Estrutura do programs 



Linhas 

• 5 - 10 - Valor das varidveis; escolha de nfveis; perimetro da tela. 

• 20 - Entrada de movimentos do jogador. 

• 25 - 45 - Rotina de movimentos do jogador. 

• 50 - Verifica se o tra^o do jogador se chocou contra ele mesmo; 
caso negativo, seta o movimento do jogador na tela. 

• 55 - 100 - Rotina de movimento do computador. 

• 105 - Decrementa o tempo e testa o choque do tra$o do jogador 
com o do computador. 

• 1 10 - Seta o movimento do computador na tela. 

• 1 15 - Mensagem do vencedor. 

• 1 20 - Mensagem do perdedor. 

• 1 25 - Qualquer tecla pressionada produz um novo jogo. 

• 130 - 140 - Instru$8es. Observa^ao: a linha 130 ultrapassa os 



255 caracteres que uma linha pode ter, portanto, para introduzi-la, 
proceda da Kguinte forma: entre com a linha 130 ate os dois 
pontos; tecle RETURN ou ENTER, dependendo do equipamento; 
tecle EDIT 130;pressione Xe va introduzindo a linha normalmente 



Varidveis 

• V% - Variavel de tempo. 

• X% - Y % - Coordenadas do seu ponto na tela. 

• Z% - B% - Coordenadas do ponto do computador na tela. 

• 1% - Variavel de loop. 

• A$ — Variivel de entrada de movimento do jogador. 

• F% - Numero da rotina de movimento do jogador. 

• A% - Numero da rotina de movimento do computador. 
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SINTA NOSDEDOS ESTA CONQUISTA 

DIGIPLEX 



C 6 







JJ-LL3X I LJ-J 

Rua Gives. 150 Tel (031)3320300 
30.000 Belo Hot I ton te Telex 031-3352 
Rue Bara t a Ribeiro. 391 s!404 
Tel (021)2572960 Rtode Janeiro 



////// 



////// 



Para pequenas e medias empresas, a DIGITUS langa o DIGIPLEX. Um modulo capaz de formar uma rede local de 
multi-usueirios, que alem de proporcionar o dinamismo de um CPD tambem simplificara o gerenciamento de sua 

Pm DT6S3 

Com v&rios terminals executando programas especificos, a implantagSo do DIGIPLEX proporcionara a sua em- 
presa um aumento da produtividade e qualidade, j£i que a interligag§o on line dos terminals permitira que se 
trabalhe com dados e informagdes atualizadas. 

Ligados ao DIGIPLEX poderdo estar ate 16 terminals inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produgdo, malas diretas, estatisticas ou seja, atendendo a todas as necessidades de sua empresa. 



Ravandadores Aracaiu (079) 2247776 223 1310 Baumen(OII) 421. 5211 Brasilia (061) 242 6344 248 5359 273 2128229 4534 Balam i09D 225 4000 Baio Horizonte (031 ) 223 6947222 7889 334 2822 344 5506 
225 3305 225 6239 Campinas (0192) 32 6322 Curitiba (041) 232 1750 243 1731 Otvindpolis (037) 221 9800 Fortaleza .085) 227 5878 224 4235 224 3923 224 4691 226 4922 Floriandpolis (0482) 23 1039 Foz do 

Iguacu (0455) 72 1416 Goiinia 062) 223.1 165 Joio Pessoa (083) 221 6743 Juiz do Fora (032) 213 2494 Londrina (0432) 237110 Macex) (082) 223 3979 Montes Claros (038) 221 2599 Niter* ( 021) 710 2780 Novo 
Hamburgo (051) 293 1024 Ouro Prsto (031) 551 3013 Pogos da Caldas (035) 721 5810 Porto Alegre (0512) 26 1988 334 0660 21 4189 25 0007 26 1900 Recite (081) 326 9318 221.4995 326 9969 Ribeirio Proto 
(016) 636 0586 Rio da Janeiro (021) 252 9420 262 2661 292 0033 267 1093 252 9191 541 2345 268 7480 221 8282 288 2650 253 3395 257 4398 222 4515 263 1241 295.8194 247 7842 322 i960 316 4966 
12 Salvador (071) 242 9394 241 6189 Santa Maria (055) 221 9588 S«o Paulo (Oil) 280 2322 815.0099 533.2111 231 3922 258 4411 222.1511 853 9288 Ttubtfi (0122) 32.9807 VMdria (027) 223 5147 
■L 














Sinclair Sinclair Sinclair sine 



Algarismos romanos 

Antonio Sa Fernandes Palmeira 



Os antigos romanos tinham uma forma toda especial de re- 
presentar os numeros e, ao que tudo indica, sua matemdtica 
era bastante elementar, pois desconheciam o zero. Ndo existe 
uma utilidade matemdtica para essa forma de representa 9 ao, 
no entanto, os algarismos romanos slo muito usados como al- 
temativa para fms de numera^o de pdgmas, capitulos, etc., 
e na escola primdria o seu ensino 6 obrigatdrio. Assim, este 
programa foi elaborado para micros da linha Sinclair com o 
objetivo de auxiliar o aprendizado desses algarismos. 

O programa 6 composto de dois mddulos: Ardbicos -+ Ro- 
manos e Romanos -> Ardbicos. No primeiro mddulo, o pro- 
grama solicita um numero em algarismos ardbicos e fomece 
sua representa 9 §o em romanos. 0 numero deverd ser inteiro, 
pois ndo hi frasSes em algarismos romanos, e menor que 3999, 
j i que a representasdo em romanos de numeros a partir de 
4000 i feita com um tra 90 em cima indicando que o numero 
deve ser multiplicado por mil. Este detalhe ndo foi implemen- 
tado no programa. No segundo bloco, o usuario deverd fome- 
cer um numero em romanos, a seguir, o programa testard a va- 
lidade desse dado, pelas regras dos algarismos romanos, indi- 
cando como ERRADO, caso haja qualquer erro de sintaxe, do 
contrdrio fornecerd o numero em ardbico correspondente. 

Desse modo, se o usuario pressionar a tecla R, o R da pala- 
vra ROMANOS da tela inicial Heard inverso, indicando que o 
programa encontra-se no modo ROMANOS. Se digitarmos IL, 
querendo representar o numero 49, o programa indicard ER- 
RADO e pedird OUTRO? (S/N), sendo que a resposta N fard 
com que se volte ao menu de op$5es. Teclando A, da palavra 
Ardbicos, o programa pedird este modo de algarismos. Assim, 
se digitarmos 49 serd indicada a resposta correta: XLDC. 

A rotina de Ardbicos para Romanos, propositadamente co- 
locada numa sub-rotina (linha 1000), 6 facilmente transporta- 
da para outras 16gicas e poderd ser util para numerar pdginas de 
um relatdrio, por exemplo. Para sua utilizasao, o numero em 
ardbicos entrard na cadeia NS, enquanto os romanos serdo for- 
necidos em R$. A linha 1080 poderd ser traduzida para outras 
16gicas, como umainstru 9 ao ON...GOSUB. Experimente fazer: 

5000BFOR Z = 1 TO 3999 
5010 L5T N 4 = ST R 4 Z 
5020 G 0 S UB 1000 

5030 PRINT AT 0,0, " 

1 1 

5040 PRINT AT 0 , 0 ; R$ 

5050 NEXT Z 

Comandando RUN 5000, aparecerd impresso, no canto supe- 
rior esquerdo do video, um contador em algarismos romanos. Na 



elabora 9 ao do programa, ndo houve uma preocupa 9 §o com 
uma possivel economia de memdria, mas poderd ser estudada 
uma otimiza 9 ao com bons resultados. 



10 CL5 

20 PRINT “CALCULUS INFORMAT ICR 
LTDh" , “5A0 LUIS -MA “ 

30 PRINT “ 



40 PRINT “ALGARISMOS ROMANOS" 
50 PRINT AT 7,0; "TECLE ; “ ; AT 9 
. 0; “ (R) RAB ICO 5 <--> (R) OMANOS" ; A 

T 11 .0; " (F ‘ INALIZAR" 

SO IF INKEY 5= R“ THEN GOTO 150 

0 

70 IF INKEY $ = “F“ THEN STOP 
30 IF INKEY$<>"R" THEN GOTO 60 

35 PRINT AT 9,1; “ST 

50 PRINT AT 11,0; “ < 

150 PRINT AT 21,0; "ARABICOS 

1 1 « 

160 INPUT Nfc 

170 PRINT PT 11,0; N$ 

180 FOR N = 1 TO LEN N$ 

19© IF Ni(N! <=''9" PND N$ (N) > = "0 
“ THEN GOTO 220 

200 PRINT PT 11,16; "NPO E RRPBI 

CO- 

202 LET P $ = '* “ 
c! 1 0 G UT u CL S 0 
220 NEXT N 

230 IF UAL N $ <4000 THEN GOTO 26 

0 

240 PRINT AT 1+ , 16 ; "NUMERO > 39 
99“ 

250 GOTO 230 

260 GOSUB 1000 

270 PRINT AT 11,16;P.$ 

230 PRINT AT 21,0; "OUTRO ? (S/N 
) “ 

290 LET C4 =INKEY $ 

300 IF C$="N" THEN RUN 
310 IF C 4 < > “ S “ THEN GOTO 290 
320 GOTO 90 
353 PRINT AT 9,l; M B M 
1000 REM ARABICOS --*> ROMANOS 
1020 LET R4 = “" 

1O30 REM LOOP NA CADEIA DE ARAB I 
COS 

1040 FOR I =LEN N$ TO 1 STEP -1 
1050 LET A=UAL N$(I) 
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130+40* (LEN N$ - I ) 
300 



1260 


LET 1 


1270 


LET i 


1230 


RETUi 


1300 


REM 


1310 


REM 


1320 


IF A 


1330 


IF H 


1 L 4 0 


It" H 


+ P $ 




1350 


IF A 


1360 


A 


1370 


IF A 


1330 


IF A 



“HEN LET R $ =B 4 + R4 



+ R $ 

1390 IF A =3 THEN LET R$=B$+A$+A$ 
+ A $ + P’ $ 

1400 IF A =9 THEN LET R$=A$+C$+R$ 
1410 RETURN 

1500 REM ROMANOS --> ARABICOS 



1505 P R IN" 



9,17; ' ' 0 “ 



1510 PRINT AT 11,0;“ < 

— \ 1 1 % 

1520 PRINT AT 21 , 0; "ROMANOS 

1530 INPUT P 5 

1600 PRINT AT 11 , 16; R$ 

2010 LET NC =0 
2020 lET A$=‘“ 

2030 LET A=0 

2100 REM LOOP NA CADEIA DE ROMAN 
OS 

2110 FOR I=LEN R* TO 1 STEP -1 
2120 LET C4=R.$(I) 

2130 IF C$ < > “ 1“ THEN GOTO 2190 
2150 Ir A $ = “ L “ OR A$=*“C , ‘ OR A$ = “ 
D “ OR Aj=“M“ THEN GOTO 2600 
2160 LET C=1 

2170 IF A $ = “ U “ OR A $ = “ X" THEN LE 

I c = -i 

£130 G OT u c! 4 5 0 

2190 IF C4<>“U !: THEN GOTO 2230 
2200 IF A $ < > “ “ THEN IF A$<>"I M T 
HEN GOTO 2600 
2210 LET 0=5 
2220 GOTO 24*0 

L L! O IF u $ \ > 1 1 X “ T H E N G OT 0 £290 
2250 IF R$=“M“ OR A$=“D“ THEN GO 
TO 2600 
2260 LET C =10 

2270 IF A4 = ;, L“ OR A$ = “C“ THEN LE 
T C=-10 

2230 G 0T O 2450 

2290 IF C$<>“L“ THEN GOTO 2330 



>300 IF A $ < 



THEN IF A $ < > “ I “ T* 



HEN IF A4 0“U“ THEN IF A4<>"X" T 
H E N G OT O 2600 
2310 LET C =50 
2320 GOTO 2450 

2330 IF C $ < > “ C “ THEN GOTO 2330 
2350 LET 0^100 

2360 IF H$ = :, D“ OR A$ = “M" THEN LE 



2370 GuTu 
233 

239 
TO 

240 

241 

242 
cl44 
245 
-C 
4 = " 

245 
„D“ 

245 
) -C 
A $ = 

2 45 . _ _ 

F H >3+C THEN GOTO 2600 
2455 LET A =A+C 
2460 LET NC = NC + 1 
2430 LET NC = 1 
2435 IF NC =4 THEN GOTO 2600 
2490 LET A4=C4 
2500 NEXT I 
2510 PRINT AT 11,0; A 
2520 PRINT AT 21 , 0; “ OUTRO? 



G<0 THEN IF A > =ABS (10*C 
IF A$ = “X“ OR A4=“C“ OR 
HEN GOTO 2600 
C>0 THEN IF C$=A$ THEN i 
THEN GOTO 2600 



( 5 /N ) 



2530 LET C $ = INKEY $ 

2540 IF C 4 = “ N " THEN RUN 

2550 IF C4 < > “S" THEN GOTO 2! 

2560 G OT 0 1500 

2600 PRINT AT 11 , 0; "ERRADO" 

2610 GOTO 2520 

3000 SAUE “ROMANOS" 

3010 RUN 

Algarismos Romanos 




SOFTWARE 



senta novas ftkxs com 
emockmcmies para voce! 



PARA EQUIPAMENTOS COM LOGICA SINCLAIR 



1. VALXIRIE 

Pilot* a r.avr 
Vaiiiri* e part* 
am buaca dr dez 
caatalo* pardidoe 
fEacluuvidad* 
Cibam*. por 
Dtvino C R 
Laillo) 

GUERRILHA 

COSMICA 



4. DEFENSOR 3D 

pianola da uma 
tnvaaAo 
alianlgana 
FanlAeticae 
•imulagOae 

Ema'TaBERT 




2. MERCAD OR DOS 

SETE 

MARES 

No e*culo XIX L 

roc* parcorr# o . . - 

rnurvdo a bordo 



CORRIDA MALUCA a PINBALL 
(Eaclueividada Ctbarn* por Dtvmo 
C R Lai t*o) 



PARA EQUIPAMENTOS COM LOGICA TRS 80 



5. ROT I -PLUS ^ 

•SOG 

Sieiama 

'.jperacional 

Imguagem UMB? 

qrai.> a 

OK>t > UIC 

Toiaimanie am I 

cOdigod* 

m*quina 

(Eiciuiivtdade Cibam* por I Magal) 
• MERGE 

Poaaibilita a iun;*o d* vane* 
orooramaa. unaaoaoutroa 



3. SUBESPACpO 



CAVERNAS DE 
MAPTE 

(Exclutividada 
Cibarna por 

Divtno 

C R LeitAo) a COMBOIO 
ESPAC1AL 



• COMP CALC 

Rapido altciarla a lolalmania am 
cOdigo d* m*ouma A malhor varUo 
do i* tamoao Via, Calc 

• COMP ARC 

Program* garador da arquivo* 

Total mania em cbdigo de m*guina 
Modal* lichai a *i acaaaa pale 
campo qua quiaer 

• COMP TEXTO 

Da iAci! mantpul*c*o lotaimenia am 
cddigo da mAquin* 
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trs-80 trs-80 trs-80 trs-8 



Super tela 

Luis Carlos Moreno 



O programa aprcsentado neste artigo foi elaborado a partir 
dc gramas ja existentes cm micros da linha Apple. Trata-se 
dc um programa rclativo a controle de tela,onde a caracteri'sti- 
ca principal e o chamado coeficiente angular de uma reta(M), 
conhecido em geometria anali'tica. A partir deste, limitou-se 
uma area a qua! deve ser formada. no mmimo, por tres pontos 
nao colineares. O funcionamento do programa baseia-se na mo- 
vimenta^ao do cursor feita pelo metodo normal, ou seja, com 
o uso do cndere^o 14420 consegue-se uma movimentaijao am- 
pla do cursor e o uso de 4 teclas. a saber: “1”, “2”, “ENTER”, 
“ESPAQCT (b). 

Os ires pontos para definigao da area sao dados pelas letras 
“A “B" e “C’\ na seqiiencia. As teclas tern as seguintes ca- 
racteristicas: “1” posiciona o primeiro ponto da reta, ou se- 
ja. e o primeiro ponto guardado e fixado na tela, que desenha- 
ra a reta. “2" posiciona o segundo ponto da reta e tra$a a re- 
ta entre o primeiro ponto e este; “A” - armazena o primeiro 
ponto da regiao a ser pintada; “B” - armazena o segundo pon- 
to da regiao a ser pintada; “C” - armazena o terceiro ponto a 
ser pintado e, logo em seguida, pinta a regiao definida pelos 




Figura 1 



pontos; “ESPA£0” (b) — ha uma inversao no sistema, ao in- 
ves de ser colocado um comando SET, coloca-se um comando 
RESET e o processo se fara da mesma forma; “ENTER” - vol- 
ta a posi 9 ao original, isto d, usa-se o comando SET. 

METODO USADO NA PROG RAM A£ AO 

Para a reta foi usado o sistema normal de uma equa^ao de 
reta, onde determinou-se a equa<;ao a partir dos pontos obtidos 
em “1 ” e “2”. A unica diferen 9 a 6 o contorno elaborado quan- 
to a descontinuidade da tela. Para isso formaram-se duas regioes 
distintas com seus respectivos coeficientes angulares (figura 1 ). 

Para pintar a area foram determinados os valores XA. XE, 
YA, YE caractensticos dos tres pontos “A”, “B” e “C” obti- 
dos pelas coordenadas (X.Y), determinando-se os coeficientes 
relativos as tres retas Mab. Mbc e Mca. Foi fixado um ponto 
XE e variou-se outro ponto desde YE a YA. determinando-se, 
entao, o coeficiente angular M\ Comparou-se M’ com os coefi- 
cientes Mab e Mca de modo a preencher a area pre-estabeleci- 
da, perceba que a varia^ao foi entre XE XB. Para a regiao 
contida entre XB e XA usa-se o mesmo metodo, pore'm deve- 
mos fixar XA, determinando-se M’ e comparando-se com Mbc 
e Mca. (Figura 2) 

Devemos observar que o programa nao limita-se apenas ao 
que foi demonstrado, podendo incluir casos particulars como 
XB = XE, XB = XA etc. Observe que A = (XA,YA): B-(XB, 
YB) e C = (XC,YC). 



Luis Carlos Moreno estd cursando o 59 a no de engenharia e/dtrica na Es - 
co la de Engenharia Maud, em Sao Paulo. 




Figura 2 
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SUPER TELA *••#* 

7 ' LUIS CARLOS MORENO 
6 ' SAO PAULO - CAPITAL - 19/7/19B4 
10 CLEAR 200 
20 DIM A < 5 ) 

30 ON ERROR GOTO B000 

50 CLS:SD®O:DL*47:G0T0 2000 

100 ' EQUACAO DA RETA 

128 IF X1-X2, 250 

130 M=<Y1-Y2)/<X2-X1)*M»A8S<M> 

135 IF M > . 5 ,250 ELSE 140 

140 IF X1-X2 < 0,T»X1 iH=X2:G0T0 150 ELSE T=X2:H=X1 
150 FOR G=T TO ABS<H> 

160 YC=< X2«Y1-X1 »Y2 )-G« (Y1-Y2)* YC=YC/ ( X2-X1 ) 

170 IF C0=0,SET<G,YC> ELSE RESET < G, YC ) 

180 NEXT G 
200 GOTO 4B0 

250 IF YXY2, T*Y1:G»Y2 ELSE IF Y1>Y2 ,T=Y2*G»Y1 ELSE T«Y1*G=Y2 
; 60 FOR 0*T TO G 

270 XO<X2*Yl XI «*Y2)-0mX2-Xi ) : XC-XC/ ( YI-Y2 ) 

280 IF C0*0, SET < XC , 0 ) ELSE RESET<XC,0) 

290 NEXT 0 

400 ' COLOCACAO DOS PONTOS NA TELA 
480 SET(SD.OL) 

485 PR I NTJM7 , "P2< " j 355, " , "j 360, ")" j 
490 K=PFEK( 14420) 

495 PR INT350 , SD j 356 , 47-DL , 

500 IF K=R L =- 1 * GOSUB 700:G0T0 490 
510 IF K»t6 L= 1 * GOSIJB 70Q:G0T0 490 
520 IF K = 32 S = - 1 * GOSUB 900:G0T0 490 
530 IF K»64 S»1*G0SUB 900*G0T0 490 
535 IF K= 1 28 , 600D 
537 IT K*2 , 3600 
53R IF K = 4 , 3600 

•■•40 AT iNKFYStIF A%= "A" , GOSUB 7000 
550 IF A*^"B",r.0SUB 7100 
560 II At ="C" , GOSUB 7200 

570 IF K=1 , C0=0 
580 GOTO 490 

700 DL=0L+L * IF DL<4 ,DL=47 ELSE IF DL > 47 , DL«4ELSE IF C0=2,3500 E 
LSE 3000 

900 SD=SD*S* IF SD< 0 , SD® 127 ELSE IF SD > 127 , SD«=0 * PR INT351 , " " j 

ELSE IF C0=2 , 3500ELSE 3000 
1000 00T0 490 

2000 CLS*F0R 1=0 TO 127*SET ( I ,3) iNEXT 

2010 GOTO 480 

3000 IF POINT ( SD,DL ) 3550 

3500 RESET ( U, 0 ) :U=SD*0=DL *5ET < SD, DL ): RETURN 
3550 RESET (U, 0 ) xSET(SD,DL) :U»127:0*0:RE TURN 

3600 IF K=2.SET(SD,DL) sXi-SD* Y1 =DL « IJ-127 K>=0: PR INT36 , " "*31,"P 



1<",X1 * 38 , " , " j 47- Y 1 1313, " > " > * GOTO 490 
3700 IF K=4,X2*SD*Y2=DL tGOTO 128 ELSE 490 
6000 C0=2 spOTO 490 

7000 P< 1 )=SD:Q<1 >=DL*POKE 15390, 253*RETURN 

7100 P ( 2 ) =5D t Q< 2 )=DL s POKE 1539 1 , 253 s RETURN 

7200 P <3>=SD:Q(3)=DL:P0KE 15392,253 

7300 FOR 1=1 TO 2 

7350 IF PlIHJO OR G<IX>0,7400 

7380 NEXT * GOTO 7795 

7400 XE=P< 1 ) :XA=P< 1 > *YE=Q( 1 ) :YA=Q( l ) 

7450 FOR 1=1 TO 3 
7500 IF P< I ><«*XE,XE=P( I > *A<3) = I 
7550 IF P < I > >=XA, XA=P <I)sA<2)“I 
7580 IF G < 1 ) < YE , YE = 0 ( 1 ) 

7590 IF 0(1) >YA, YA=G( I ) 

7600 NEXT 

7610 FOR 1=1 TO 3 

7620 IF A ( 3 ) = I OR A(2)=I,7630 ELSE A<5)»I 
7630 NEXT I 

7632 M(4) = »Q(A(2) ) -Q( A< 3 ) ) >/<P(A(2) >-P ( A ( 3 ) ) ) 

7633 IF P(A(5> )=P<A<2) ) ,R=12*G0T0 7640 

7634 M<2)=(0<A(2))0<A(5)))/(P<A<2))-P(A<5)>) 

7635 IF P<A<5))=P(A<3>>, 7735 

7640 M(3)=(Q(A(5) ) -Q < A < 3 ) ) )/(P(A(5) )-P(A<3) ) ) 

7680 IF M(4XM(3) ,MA=M(3) :ME=M(4) El SE MA=M ( 4 ) sME*M< 3 ) 

7700 FOR I=XE-U 10 P(A(5>> 

7710 FOR .J“YE+1 TO YA 

7715 N=(J 0(A(3) > )/< I-P(A(3) ) ) 

7720 IF N< =ME OR N>=MA,7730 ELSE IF C0=2,772G 
7725 Sf T(I,J):GOTO 7730 
7728 RESET(I,J) 

7730 NEXT J , I 

7732 IF R - 1 2 , R=0 : GOT 0 7795 

7735 IT M(4)<M<2), ME=M( 4 ) « MA=M< 2 ) ELSE ME=M<2 > *MA=M< 4 > 

7740 FOR I=P(A(5)) TO XA-1 

7750 FOR J= YE+ 1 TO YA 

7760 N=< J-Q<A<2> ) >/<I- P(A<2) > > 

7770 IF N<=MF OR N)=MA,7790 ELSE IF C0«2,77B5 
7700 SET ( I , J> *GOTO 7790 
7705 RESET < 1 , J) 

7790 NEXT J,I 

7795 PRJNT330," ", 

7800 FOR 1=1 TO 3 
7810 P<I>=0 
7820 Q < I ) =0 
7830 NEXT 
7840 GOTO 490 

8000 PR 1NT324, "MESMO PONTO H",:FOR 1=1 TO 300:NEXT :PR 1NT324 
",s RESUME 490 



Super tela 



NUNCA ETAROE PARA LER 

./Vlicro 



AGORA & MAIS FACIL ASSINAR 



Se voce 
nao adquiriu 

MICRO 

SI STEM AS 
na data certa, 

nos Ihe damos 
uma segunda 

chance! 



comod'd^ 8 ' 



/Micro 






• Seu pedido pode ser feito 
por carta, indicando 
quais os numeros 
atrasados que voc€ quer. 



Acrescente a este um cheque 
cruzado, nominal a ATI 
Editora Ltda., no valor 
correspondente ao seu 
pedido. 



• E nao se esquepa de incluir 
o seu endere^o para 
que n6s possamos 
fazer a remessa. 



End*r»cot: 

Ruo Oliveira Dios, 153 — Jardim Poulisto — SOo Poolo/SP 
— CEP 01 433 — Tels. : (Oil) 853-3800, 853-7758 e 881 -5668 



Sistemas 

c0 ' 0C8 ♦««end8t0? os r w a dos. 

1 ntantesa^ontaao 

. -ays rep^® 560 RIO DE JANEIRO 

06 ^ ATI Editora Ltda. 

Av. Presidente Wilson, 165 - GR. 1210 
CEP 20030 - Tels.: (021) 262-5259 

SAO PAULO 

ATI Editora Ltda. 

Rua Oliveira Dias, 153 
CEP 01433 -Tels. (011)853 3800 
853-7758 

RECIFE 

Monte SiSo Distr. Nordeste Ltda. 

Rua Almeida Cunha, 65 

CEP 50000 - Tel.: (081 ) 222-1699 

goiAnia 

Tiago Motta Araujo 

Rua 6, n9 310 -CEP 74000 

BELO HORIZONTE 

Profissiona! Com. Rep. Editorials Ltda. 

Rua Guajajaras, 410 - Cj. 305 
CEP 30000 -Tel.: (031) 222-8679 

PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 

Rua Uruguai, 35 - sala 622 
CEP 90000 - Tel.: (0512) 26-0839 



Av. Presidente Wilson. 165 — grupo 1210 — Centro — Rio 
de Joneiro/RJ - CEP 20030 - Tels : (021) 262-5259 . 262- 
6437 e 262-6306 







trs-80 trs-80 trs-80 trs-8 



Mire certo e . . . GOLF! 

Silvio Cavalcanti de Araujo 



E ste jogo 6 extremamente simples, mas muito interessante. Nele, 
o jogador tera que acertar o maior numero possfvel das dez ta- 
cadas a que tern direito, em cada grupo de jogadas. Para isso, 
ele tera que fomecer a for^a da sua tacada, que varia de 0 a 62. 
Essa for^a, nada mais e do que a quantidade de esp&^os que a bola 
(o) devera percorrer para cair no buraco. Se a for^a for maior ou menor 
do que a nccessaria, a bola nao caira e o jogador perder£ a tacada. 

A pista de jogo e formada pelo carater 191. O buraoo 6 aleatorio e 



fomeddo por RND de 62. 

Se o jogador quiser saber previamente o numero do buraco, deve in- 
serir a linha: 61 PRINT 16, “B - ”;B 



Sflvio Ca\m!canti de Araujo tem 15 anos e estd cursando a IP stria do 
29 grau no Cottgio Satesiano, em Recife. Ele 4 possuidor da um DGT- 
100, onda desenvolve teas program as. u 



Golf 



\ GOTO ?00 
5 I =0 

7 + i 

8 IT 1=11 THUN 380 
10 CLS 

15 PR INT3896 , "o" 

20 FOR X= 1 6320 TO 1A383SP0KE X,i9i:NEXT 
30 B-RND ( 62 > 

40 S^B*16320 
50 POKE S r 32 

60 PR INTS1 , "QUAL A FORCA" 

62 PRINT330, ''TACADA No . " - 1 : PR INT353 „ P * "P TS . " 

63 INPUT F 

65 IF F >63 THEN PR I NT : PR INT : PR INT : PR I NT :PR INT :PR IN 
T" Jogada i legal, tente de novo 

. "8 FOR T-i TO 1500 : NEXT s GOTO 10 
70 C=F+16320 
73 U=F+ 16256 

90 FOR Y=16256 TO UsPOKE Y r lli:P0KE Y-l,32sF0R T=1 
TO 5SNEXT8NEXT 
100 VI=S-64 

110 IF UI=VI THEN FOR T=i TO 1008NEXT TrPOKE S,llis 

POKE VI,32sP=P+i 

120 PRINTS 473, // 0UTRA VEZ ?" 

130 Rl=INKEYl : IF R*="" THEN 130 
140 IF R*="n" OR R*="N" THEN END 
150 GOTO 7 

200 CLS SPRINT CHRK23) 

210 PRINT SPRINT" <C> SILVIO ARAUJO. <1984>"sPRI 
NT SPRINTS PR INT''## OFICCINA — RECIFE **"sPR 
INT s PR INT SPRINT" GOLF Ml 



220 PRINT SPRINT SPRINT" TECLE "CHR% ( 34 > "R"CHR* ( 34 > 
" PARA INSTRUCOES r " s 

230 PRINT" E "CHRS<34)"J"CHR*<34>" PARA JOGAR . . . " 
240 T*=INKEY*:IF T%="" THEN 240 
250 IF TS="R" OR T *="r" THEN 300 



260 IF T*="J" OR Ti="j" THEN GOTO 5 

270 GOTO 240 

300 CLS s PR INT CHR*<23> 

310 PRINTsPRINT" GOLF M! 

320 PRINT :PR1NT:PRINT"ESTE JOGO CONSISTE EM ACERTA 
R 0 MAIOR NUMERO POSSIVEL DE TACADAS 
330 PR I NT"P AR A ISTO, VOCE DEVE DIGITAR A FORCA DA 
TACADA QUANDO REQUISI-TADA PELO MICRO. (NO MAXIMO 
62 >" 

340 PRINT :PRINT"TECLE J PARA JOGAR !!!" 

350 J*=INKEY*:IF JS="" THEN 350 

360 IF J*="J" OR JS="j" THEN P=0sG0T0 5 

370 GOTO 350 

380 CLS 

390 PRINTsPRINTsPRINT 

400 IF P=0 THEN PRINT :PRINT"VOCE FEZ 0 ( ZERO > P 
ONTO. NAO DESANIME. TENTE NOVAMENTE." 

410 IF P >6 AND P<10 THEN PRINT"VOCE FEZ IJMA OTIMA 
CONTAGEM DE PONTOS. CHEGO 

U BEM PERTO DOS DEZ (PONTUACAO MAXIMA). 

TENTE DE NOVO."s PRINT"VOCE FEZ";P;"PONT 

OS." 

420 IF P >0 AND P<5 THEN PR INT " . . . ATE ' QUF NAO FOI 
TAO RUIM ASSIh. MAIS P 

ODE-SE MELHORAR. TENTE DE NOVO . . . " s PR INT"VOCE FEZ" 
;P; "PONTOS." 

430 IF P-5 OR P=6 THEN PRINT"VOCE FEZ" ; P ; "PONTOS . 

NADA 

MAL PARA UM INICI ANTE . . ." 

440 IF P=10 THEN PRINT"VOCE FEZ" - P ; "PONTOS !!! 

MELHOR QUE I 

SSO, SO' DOIS DISSO. 

MAS EU ACHO QUE VOCE NAO E' CAPAZ DE REPETI-LO. 

QUER APOSTAR ? TENTE DE NOVO." 

450 PRINT SPRINT sPRINT"QUER TENTAR OUTRA VEZ ? (S 
/N> ?" 

460 S%=INKEYS:IF SS="" THEN 460 

470 IF S*»"N" OR S*="n" THEN END s ELSE s P=0 s GOTO 1 
500 r PROGRAMA DE SILVIO CAVALCANTI DE ARA 

UJO, 

EM 27 / 03 / 1984. 

DGT-1000 / 16 Kb 




Saiba porqueoCirandao 
se ligou tanto 
no Modem UP-1275 VTX 

da Parks. 




O Modem UP- 127 5 VTX da Parks e o 
modem homologado pel a Telebras. Depois de 
todos os testes de qualidade realizados pela 
empresa, ele mosirou que e o mais duravel e de 
maior rcsisteneia, 

O Modem UPI275 VTX da Parks e a 
maneira mais simples, rapida e duravel de voce 
ligar o seu microeomputador ao Service 
Cirandao c Videotexto. Basta uma linha 
leleldnica comum para completar a liga^ao e 
ter ao seu alcance as mais diversas informagoes 
de interesse domestico, empresarial e 
professional. 



E um aparelho de pequenas dinvensoes 
(15 x 25cm), peso reduzido c de facil instala?ao. 
Recebe sinais em 1 200 bps e transmite a 1200 ou 
75 bps. Alem de tudo, tem aha durabilidade e 
fa z voce dear na linha por muito mais tempo e 
tem muito mais farilidade de reposi^ao de 
pecas. 

Rcceba o Service 
Cirandao ou Videotexto em 
sua casa, empresa, 
consultorio ou escritorio. 

O Modem UP-1275 VTX 
da Parks da o aeesso. 





MODEM Lrp.1275 VTX 



BANCO Dt DADOS 



A 







K ALTO MAT I CO: Vote compm o Modem 
UP-1275 VTX da Parks e ganha uma inscrigao 
para ingresso no Service Cirandao da Fm braid. 



RI-EJt 

ihlhVvk A 



3200/75 



oo 



Mains: f\irtn Akjtut - RS A*. Parana. 2335 : tbnc (0512) 42-5500. Tttn *051) 1043 * tlluiitt Stto Paulo Tune (Oil) 572-7)71, Ttk* (Oil) 23-141 « Curitiba 
HuitC (Oil) 232-1814. Tclc.v(04|) 54()ft • Riodc Jajwiro Rme (021) 240-7443. TUrt(02l) 33-621 * RwiJcRmc {(81)325 -2L23, Telex (081) 4248 • Htprv^nOinlcN 
lk-lo HorL/oiite Fone (031) 22(hSH2 • Rrwtlia. Hone 1061 1 272-1825 • BlurtK-rwu Hune 10473) 22-6248 « CampQ GrwdcTom: (067) 383-5331 • Honanripalts 
Hit*e ((M82) 22-1525 * CuiaWrfbne (065) 321-5020 • Ubcriindta (nnc (034) 214-KW) • Salvador bone (071) 249-9744. 






apple apple apple apple ap 



Luciano Demarchi 



Galaxy 



Galaxy e um jogo bastante simples, para os micros da linha 
Apple. O objetivo do jogo e destruir a nave inimiga, que passa 
na parte superior da tela, utilizando um canhao laser, que fica 
na parte inferior. Use a tecla 1 para atirar. A cada tiro certo vo- 
ce ganha quatro pontos e a cada erro perde dois. Se voce con- 
seguir destruir o inimigo, ter & a chance de obter mais 500 pon- 
tos. Para isso, basta escolher tres numeros inferiores a 39 e di- 
gitd-los. Ap6s a sua escolha, aparecera, em alguma das 39 li- 



nhas da tela, um ponto. Caso voce tenha acertado o numero da 
linha, teri conseguido, entao, os 500 pontos. Mas lembre-se: 
para que os inimigos sejam destruidos voce nao pode errar tres 
tiros numa mesma sequencia ou o jogo ter£ que ser recome 9 a- 
do. Boa sorte e boa pontaria! 



Luciano Demarchi tem 14 an os e estuda atualmente DB sistemas. 



5 GOTO 1500 
10 HOME 

15 C - 0 
30 G R 

35 COLOR- 15 
40 HL IN 0,7 AT 21 
50 VL IN 21,20 AT 8 

60 HL I N 16.24 AT 33 

70 HL IN 10,22 AT 32 

00 VL IN 33,28 AT 16 

90 VL IN 33.28 AT 24 

100 HL I N 19.21 AT 31 
110 VL I N 29,30 AT 20 
130 B - 3*. A - 39 
135 D - O 

140 R - INT (10 * RN 



550 Z « Z ♦ 6 
560 A - 38 

565 D - D ♦ l 

566 IF D - 10 THEN GOTO 1000 
570 GOTO 140 

700 REM 

710 FOR G - I TO 10 
720 F « PEEK ( - 16336) ♦ PEEK 
< - 16336) - PEEK < - 16336 
> ♦ PEEK < - 16336) 

730 NEXT G 

740 IF C - 3 THEN GOTO 760 
750 RETURN 

760 PRINT "VOCE FEZ "*Z»" PONTOS 

770 FOR G - l TO lOOO: NEXT G 
775 TEXT 
780 HOME 

790 INVERSE : HTAB 10: VTA0 10: PRINT 
" INTERGALACTEA" 

800 PRINT : PRINT : PRINT "OUER 
JOGAR NOVAMENTE (S/N) •• 

810 GET A* 



820 IF A* C "S" THEN NORMAL 
: gosub 2000 : end 
825 NORMAL 
830 GOTO 10 

900 COLOR- 3: PLOT A, 3: COLOR*-* O 

903 IF A - 38 THEN A « 37 

904 PLOT A ♦ 1.3 

905 F - PEEK ( - 16336) 

910 RETURN 

lOOO TEXT : HOME 

1100 PRINT "AGORA VOCE TERA CHAN 
CE DE GANHAR": PRINT "500 PO 
NTOS DE BONUS": PRINT "E SO 
DIG I TAR S NUMEROS": PRINT "E 
FI CAR DE OLHO NA TELA" 



150 


IF R - 1 OR R - 10 THEN GOTO 


mo 


INPUT Q.W,U 




170 


i in 


IF 0 39 OR W > 39 OR U > 


160 


GOTO 140 




39 THEN GOTO UOO 


170 


A « A - 1 


1220 


B - INT (39 * RND ( 1 ) ) 


180 


GOSUB 900 


1230 


GR 


185 


E - PEEK ( - 16384) 


1235 


COLOR- 4 


190 


IF A - 5 THEN GOSUB 250 


1240 


PLOT O.B 


195 


IF E = 177 THEN GOTO 400 


1245 


GOSUB 1460 


200 


GOTO 170 


1250 


HLIN 39.0 AT W 


250 


C - C ♦ 1 


1255 


GOSUB 1460 


255 


COLOR- 0: HLIN 0,10 AT 3 


1256 


COLOR- 9 


270 


COLOR- 5: PLOT 5.B: COLOR- 0 


1260 


HLIN 39,0 AT 0 




: PLOT 5,B - 1 


1265 


GOSUB 1460 


280 


B - B ♦ 1 


1266 


COLOR- a 


285 


F - PEEK ( - 16336) - PEEK 


1270 


HLIN 39,0 AT U 




( - 16336) PEEK < - 16336 


1275 


GOSUB 1460 




) 


1280 


IFB-WORB-UORB-O 


290 


IF B - 20 THEN LET B - 3*. LET 




GOTO 1400 




A - 39: GOTO 700 


1289 


HOME 


300 


GOTO 270 


1290 


PRINT “VOCE ERROU OS TRES T 


400 


COLOR- 10 




IROS" 


410 


VL IN 28.3 AT 20 


1 300 


GOTO 1450 


420 


F - PEE) < - 16336) 


1 400 


HOME 


430 


IF A - 20 OR A - 21 THEN GOTO 


1410 


Z - Z 500 




500 


1420 


PRINT "PARABENS VOCE ACERTO 


440 


GOSUB 900 




U" 


450 


COLOR- O: VL IN 28.3 AT 20: Z - 
Z - 2 


1450 


PRINT "AGORA VOCE TEM ";Z*» 
PONTOS" 


460 


E - PEEK ( - 16368) 


1452 


GET Aft 


470 


GOTO 170 


1455 


GOTO 10 


500 


COLOR- 0 


1460 


FOR Y - l TO 500 


51 1 

520 


HLIN 0,39 AT 3 
FOR G - 1 TO 20 


1470 


M - PEEK ( - 16336): NEXT Y 


530 


F - PEEK ( - 16336) ♦ PEEK 


1480 


RETURN 




( - 16336) - PEEK < - 16336 


1500 


HOME 




) 


1501 


GOSUB 2000 


540 


NEXT G 


1510 


PRINT "VOCE ESTA EM PLENA G 



IJERRA ESPACIAL SUA OBRI 

GACAO E NAO DEIXAR A NAVE IN 
I- MIGA POUSAR 3 VEZES NA 
BASE H 

> PRINT "QUE ESTARA LOCAL I ZAD 
A A SUA ESOUERDA. " 

PRINT : PRINT "USANDO UM CA 
NHAO DE LASER (LOCALIZADO 
ABAIXO DA TELA) VOCE DEVERA 
DESTRUIR A NAVE INIMIGA O 

UE PASSARA NA PARTE SURE 

RIOR DA TELA" 

GET A* 

HOME 

INVERSE 

PRINT “ COMAN 

DOS **: NORMAL 

: PRINT 

PRINT "VOCE DEVERA USAR A T 
ECLA *1* P/ ATIRAR" 

INVERSE 

PRINT " BON 

US " ; NORMAL 



: HINT 

PRINT "0 BONUS SERA GANHO D 
A SEGUINTE MANEIRA:" 

) PRINT "OUANDO VOCE DESTRUIR 
SEU INIMIGO APARE- CERA NA 
TELA LIMA MENSAGEM EM OUE VOC 
E DIGITARA 3 NUMEROS" 

) PRINT "FEITO ISTO TERA DISP 
ARO DE 3 TIROS COM A FI 

NAL I DADE DE ACERTAR O PONTO 
ALEATORIO COLOCADO NA T 

ELA" 

> PRINT : PRINT "*OBS: 0 NUME 
RO NAO PODERA SER MAI OR OUE 

39" 

' PRINT : PRINT "SE VOCE ACER 
TAR 0 PONTO SERA RE- 
COMPENSADO COM 500 PONTOS " 

> GET A* 

. HOME 

> INVERSE 

PRINT " CONTAGEM 

DE PONTOS NORMAL 

: PRINT 

PRINT "A CONTAGEM DE PONTOS 
SERA FEITA DA SE- GUINTE M 

aneira:**: print 
PRINT "CADA TIRO QUE VOCE D 
ER PERDERA 2 PONTOS E CADA V 
EZ OUE VOCE ACERTAR A NAVE 
GANHARA 4 PONTOS" 

PRINT : PRINT : PRINT : PRINT 
"APERTE OUALQUER TECLA P/ CO 
MECAR A JOGAR" 

GET A* 

GOTO 10 
REM 

INVERSE 

FOR G - 1 TO 50 

PRINT " INTERGALACTEA 

INTERGALACTEA ": NEXT 
G 

FOR G - 1 TO 1000: NEXT G 



COLOR- 10 
HL IN 9,28 AT 34 
HL IN 9.28 AT 33 
HL I N 12.25 AT 32 
HL I N 12, 16 AT 31 
HL I N 12.16 AT 30 
HL IN 12. 16 AT 29 
HL I N 12. 16 AT 20 
HL IN 12, 16 AT 27 
HL I N 5,17 AT 26 
HL IN 21,25 AT 31 
HL IN 21.25 AT 30 
HL IN 21.25 AT 29 
HLIN 21.25 AT 28 
HL IN 21.25 AT 27 
HLIN 20,31 AT 26 
N - 36 
N - N - 1 

IF N - 17 THEN GOTO 3200 

COLOR- 9: PLOT N.3 

COLOR- 0: PLOT N ♦ 4.3 

GOTO 3130 

COLOR- G 

VL I N 31,3 AT 18 

VL IN 31.3 AT 19 

FOR G - 1 TO 2500: NEXT G 

TEXT : HOME : NORMAL 

RETURN 

0 REM LUCIANO DEMACHI 




62 



MICRO SISTEMAS. fevereiro/85 



Sinclair Sinclair Sinclair sine 



Juros descontados 

Fernando Cesar Raimundo 



1 REM PROGRAMS DE JUROS DESCO 
NTRDO 

5 CLS 

10 PRINT ENTRE COM « TRXR \ 
20 INPUT T 
30 PRINT T; 1 •/, " 

40 PRINT ENTRE COM 0 MONTRN 



TE " 

50 INPUT M 

60 PRINT ” > CPS " , M 

70 PRINT ,,"N*DE MESES 
60 INPUT ME 
90 PRINT ME 

95 IP T»ME >=100 THEN GOTO 200 



Juros Descontados 

Nesses tempos de crise, nao podemos 
descuidar de nossas economias. Por isso, 
aproveite esse programa, desenvolvido 
num TK85, e fa$a uma previsao antes de 
aplicar o seu rico dinheirinho. 



100 LET X* (T *ME/ ( 100- (T *ME) H *1 
00 

110 PRINT , , "COEFICIENTE " ; X 

115 PRINT , , BRSE RO MES " ; X / ME 

. .. a/> .. 

120 LET Y* l (M*X) /100 ) 

124 # PRINT URLOR DO JURO DE " 

' 126 PRINT ’ >CRS ",Y 

130 PRINT , , ‘‘URLOR R RECEBER RP 
OS M ; ME, " MESES " 



140 PRINT " >CR$ ".Y+M 

150 PRINT RT 21,2. -VOUTRO CRLC 
ULO (S/N) ?/V , 

160 IF IMKEyS^’S" THEN RUN 
170 IF INKEY S»"N" THEN GOTO 300 
175 PRINT RT 21.2. AOUTPO CRLC 
ULO (S/N) TV" 

190 GOTO 150 
200 CLS 

210 PRINT RT 11 .5. "CRLCULO IMPO 
SSIUEL. . . " 

220 GOTO 150 
300 CLS 

310 PRINT RT 11,7, "T C H R U... 
320 STOP 

330 3RUE "JUPOS DE5C0NTRDCT 
340 RUN 







_ ./Micro 
Sistemas X ^ 



MICRO BUG 



Sim, desejo receber 

□ a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 2.300,00 referente a’ 
despesas do correio. 

□ os numeros atrasados de MS, pelos quais pagarei o prego de Cr$ 1 mil* por exem- 
plar. Me interessam as edi odes: □ MS n9 31 □ MS n? 33 

□ MS n9 32 □ MS n9 34 

TOTAL: Cr$ 



Para tal.estou enviando um cheque nominal ATI Editora Ltda. (Projeto MICROBUG) 
Av.Presidente Wilson n9 165,grupo 1210- Centro - CEP 20030- Rio de Janeiro, RJ." 
* Despesas de reembo/so exc/ui'das 

OBS. : Os produtos acima podem ser adquiridos diretamente em nossos escritdrios do 
Rio ou Sao Paulo sem despesas de correio. 



EM FITA 



O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a explorapao dos recursos existentes nos micros da 
linha Sinclair. Sua construpdo, passo a passo nas 
pAginas da revista, tem tido importdncia decisive no 
aprendizado e desenvolvimento dos usuftrios na 
programapfa em linguagem de mdquina. 
Devido ao enorme sucesso do MICROBUG, refletido 
nas inumeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versao 
integral do MICROBUG. 

Para tal.foi contratado um estCidio especializado, 
garantindo um padrio de gravapSo profissional e 
uma embalagem invioldvel que voed ir4 apreciar. 
Como a documentapao do MICROBUG comepou em 
MS n9 31, aqueles que adquirirem a fita ter§o a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NAO POSSU AM POR UM 
PREQO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao ladoe mande jd o seu pedido. 

TIRAGEM LIMITADA. 




Unha TRS-80 



Quantos bytes? 

Saiba exatamente quantos bytes de memdria urn 
programa ocupa com esta simples linha: 

0 CLS s ZZS^'T AMANHO DESTE PROGRAM 
A s ===== > " s ZZ = < PEEK ( 16634 >*256+ PEE 
K ( i 6633 ) ) - (PEEK ( 16549 ) *256+ PEEK ( 
16548) ) -103: PR INT3260 , ZZi ? ZZ - " B 
YTES" 2 FOR 1 = 1 TO 2000 = NEXT I 

O procedimento tambe'm e bem fdcil: depois de co- 
locar esta linha 0 no seu programa, chame-a com RUN 
0. E se por acaso seu programa j i possua uma linha 0, 
nSo tern importancia, e' preciso apenas arrumar um lu- 
gar para colocar esta dica. 



Dirceu Pivatto-RS 



Unha SINCLAIR 



Arte oriental 



Entre no mundo 
das mil e uma noites : 
coloque esta dica no 
seu micro e veja uma 
sdrie interminsivel de 
belos tapetes persas 
voando na tela. 



4 REM TAPETES PERSAS 
6 REM AUTOR: RUY C. GONCALVES 
8 REM AGOSTO DE 1984 - PORTO ALE 
GRE-RS 
10 CLS 

20 LET T*=" " 

30 FOR 1=1 TO 5 
40 LET A= I NT <RND*li ) 

50 LET B = INT <RND*11>*128 
60 LET T4=TS+CHRS A+CHRS B 
70 NEXT I 
80 FOR 1=1 TO 64 
90 PRINT TS; 

100 NEXT I 

110 FOR 1=1 TO 100 

120 NEXT I 

130 GOTO 10 



Ruy C Gongalves-RS 




In 

CJlQfjpflofc 

13 ) 



Se voce tern pequenas rotinas e programas 
utilitarios realmente uteis tomando poeira em 
seus disquetes ou fitas, antecipe-se aos piratas e 
trate de divulga-los. Envie-os para a REDAQAO 
DE MICRO SISTEMAS - SEQAO DICAS: A v. 
Presidente Wilson, 165 — Grupo 1210 — Centro 
— Rio de Janeiro — RJ — CEP 20030. Nao 
esquega de dizer para qual equipamento foram 
desenvolvidos. Desta forma sua descoberta 
podera ser util para muitos, em vez de 
desmagnetizar-se com o tempo em suas fitas e 
disquetes. 



Unha SINCLAIR 



Dissolvendo o video 

Veja a tela do seu micro ir se dissolvendo aos pou- 
cos (igualzinho k dica Derretendo o video , para a linha 
TRS80, publicada em MS nP 34, pig. 72), com esta di- 
ca em Assembler. Para usd-la, entre primefiro com o MI- 



CRO BUG 


para 


criar 


uma 


linha 


REM 


I com 


48 bytes. 


Depois, digite estes cddigos: 












16514 


FD 


36 


21 


00 


2A 


OC 


40 


OE 


16522 


18 


06 


20 


23 


7E 


FE 


80 


20 


16530 


03 


3E 


3F 


77 


B7 


28 


05 


35 


16538 


FD 


36 


21 


01 


10 


ED 


23 


OD 


16546 


20 


E7 


FD 


7E 


21 


B7 


20 


D8 


16554 


C3 


F5 


08 


80 


B2 


AF 


A7 


80 



Agora, em vez de dar um CLS, digite LET L= USR 
16514 e comprove que efeito! Por fim, um detalhe 
muito bom para o pessoal que vai incrementar esta ro- 
tina nos seus programas: ela pode ser colocada em qual- 
quer pos^do de memdria. 



Mirio Jos6 Bittencourt-SP 



U'nha TRS-80 



Faga uma reta 

Os usuarios da linha TRS-80 agora ja podem tra^ar 
uma reta na tela do seu equipamento, 6 s 6 digitar esta 
dica: 

2000 INPUT XI ,Y1,X,Y:CLS 

2010 IF X-X1=0 M=500 ELSE M=(Y-Y 

1 )/<X-Xi) 

2020 IF ABS < M ) > 1 THEN 2070 
2030 FOR X2=Xi TO X STEP SGN(X-X 
1 ) 

2040 SET(X2, Y1+M*X2~M*X1 ) 

2050 NEXT X2 
2060 END 

2070 FOR Y2=Y 1 TO Y STEP SGN ( Y-Y 
1 ) 

2080 IF M< >500 SET ( < Y2-Y1 ) /M+Xl , 
Y2 ) ELSE SET < XI , Y2) 

2090 NEXT Y2 
2100 END 



Henrique Monteiro CristdvSo-ES 



Linha SINCLAIR 



Alfabeto grego 



Reproduza os caracteres do alfabeto grego no seu 
TK-2000 com este programa que, inclusive, pode ser 
usado como sub-rotina em um editor de textos. 

20 DIM R A ( 24 ) 

30 FOR U=i TO 24 : READ RA(U):NEXT 
U 

40 DATA 8192 , 8320 , 8448 , 8576 , 8704 
,8832,8960,9088,8232,8360,8488,8 
616 

50 DATA 8744,8872,9000,9128,8272 
,8400,8528,8656,8784,8912,9044,9 

168 

60 HGR s HC0L0R=3 s HOME : 1=1 !L=9 

70 OTAR 5 s HT AB 1 : PR INT"LETR AS GR 

EGAS s " s PR INT s FOR U=i TO 39:PRINT 

"-" ; : NEXT U 

80 GOSUB 300:N=0 

82 FOR C = ii TO 27 STEP 2:N=N+i 

84 IF N=27 THEN 98 

86 IF C-27 THEN L=L+2 

88 IF C=27 THEN 82 

90 FOR J=I TO 1+7 

92 B A=R A ( L ) +C- 1 

94 POKE BA+1024*< J-I ) ,M< J> 

96 NEXT J:I=I+8:NEXT C 
98 VT AB 18SHTAB 1 8 : PR INT"0RLAND0 
MOURA"sPRINT TAB ( 18 )• "BELEM , AGO 
STO/84" 

100 END 

300 REM ** SIMBOL ** 

302 DIM M(200) 

304 FOR U=i TO 192:READ M(U):NEX 
T IJ 

306 DATA 0,64,44,18,18,44,0,0,48 
, 72 , 72 , 36 , 68 , 66 , 50 , 2 , 0 , 68 , 42 , 16 , 

16.16.16.0. 48.8.16.60.34.34.28.0 
,0,24,36,4,8,4,36,24,0,26,38,34, 
34,34,32,32 

308 DATA 4,56,4,8,16,32,36,24,0, 

60.66.66.126.66.60.0. 0.0.128.4.4 
,20,12,0,2,18,10,7,10,82,98,0,2, 

5.8.8.20.36.66.0. 0.18.30.18.18.8 
2,34,2 

310 DATA 32,64,66,34,34,18,12,0, 

2.28.2.12.2.50.76.32.0. 0.28.34.3 

4.34.28.0. 0.126.36.36.36.36.0.0, 
0,24,36,36,20,4,4,0,64,60,2,26,3 

4.34.28.0 

312 DATA 0,252,18,16,16,20,24,0, 
0,0,226,37,36,36,36,24,0,48,74,7 
4,60,8,8,8,2,69,40,16,40,68,130, 
0,130,85,84,56,16,16,16,0,0,0,2, 

65.65.73.54.0 
320 RETURN 



Orlando Moura-PA 



Curvas incriveis 

Fa?a uma surpresa aos seus amigos com esta dica 
que traga curvas mirabolantes: e so rodd-la, responder 
as perguntas que o programa faz e aguardar um pouco 
porque esta dica e lenta. 

1 FAST 

10 PRINT "STEP?" 

20 INPUT S 

30 PRINT "A INICIAL?" 

40 INPUT 0 
50 PRINT "A FINAL?" 

60 INPUT W 
70 CLS 

110 FOR A=Q TO W STEP S 
120 PRINT AT 21 ,25;"A="; A; 

130 FOR X=i TO 43 

140 LET Y= ( A/2 >#<EXP(X/A) +EXP ( -X 

/A) ) 

150 LET D=24+A- Y 
160 LET G=X+21 
170 LET H=43-X 

180 IF G >63 OR H<0 THEN GOTO 230 

190 IF D< 2 OR D > 42 THEN GOTO 230 

200 PLOT G , D 

210 PLOT H , D 

220 NEXT X 

230 NEXT A 

Adriano Pascoal Pereira- RJ 



Programas em seguranga 

De repente, um descuido e... pronto! Li se foi aque- 
le programa que era t£o bom... Quantas vezes isso 
aconteceu? Para evitar esta triste situa^o, tenha sem- 
pre cdpias de seguran 9 a dos seus melhores programas. 
Esta dica faz para voce exatamente isto, e ainda tern 
uma vantagem: transmite uma men sagem, ao final da 
cdpia ou carregamento, informando se esta tudo ok ou 
nSo. Ela s6 tern uma restri^o: s6 pode ser usada no 
TK-85, pois os comandos das linhas 40 e 70 s£o espe- 
ciais deste equipamento. Agora corra para o seu micro 
e fa$a logo um seguro dos seus arquivos. 

10 DIM A$ ( 9000 ) 

20 LET Z=0 
30 LET Zi= // A // 

40 LET A=USR 8305 

50 PRINT^CARREGAMENTO'^^OK'' AND 

NOT A-^RUIM 77 AND A 

60 PAUSE 4E4 

70 LET A=USR 8288 

80 PRINr'COPIA'V'OK" AND NOT A ? 7/ 

RUIM 7 ' AND A 



Pedro Paulo P. Santos- RJ 













De um visual todo especial aos seus 
programas, enquanto aprende mais sobre 
os graficos de seu TRS-80. Isto e . . . 



FLASH! Assembler, graficos 
e muita imaginacao 

Roberto Quito de Sant'Anna 



V oce j a sabe, certamente, que os equipamentos da li- 
nha TRS 80 possuem 64 caracteres grdficos, cada 
um dividido em 6 blocos ou “pixels” - picture cells 
(ver a materia DISKZAP para mudar, MS n9 25), 
que abrangem os cddigos desde 128 at£ 191 ; o primeiro com 
todos os pixels apagados e o ultimo com todos acesos. 0 que 
muitos nlo sabem 6 que se caminharmos das extremidades pa- 
ra o centro do intervalo 128-191, a cada passo os caracteres 
considerados serao exatamente o inverso (o negativo) um do 
outro! Exemplificando: 128 6 o inverso de 191, assim como 
129 £ o de 190, 159 £ o de 160, etc. (ver figura 1). Se quiser- 
mos generalizar, £ muito fdcil: o carater grifico 128+x £ o in- 
verso do 191 -x. 

Se aprofundarmos um pouco mais a nossa pesquisa a respei- 
to dos caracteres grdficos, chegaremos a duas outras conclusbes 
interessantes: a primeira £ a de que todos os caracteres grdficos 
tern o bit 7 “setado”, ou seja, igual a 1; e o bit 6 “resetado”, 
ou seja, zero. A explica^o £ muito simples: todos os caracteres 
graficos slo maiores ou iguais a 128 - que equivale a 10000000 
em binirio - e menores que 192, 1 1000000 em bin&rio. A se- 














Representagao 


Binaria : 


BITS 


CdDIGO 


SIMBOLO 


7 


6 


5 


1 


3 


2 


1 


0 


155*128+27 




— 


— 




1 


0 


0 


1 


1 


0 


1 


1 


164*191-27 




— 


— 




1 


0 


1 


0 


0 


1 


0 


0 



Figura 2 - Notar a complementaridade dos bits de 0 a 5 



gunda conclusao e a de que, olhando-se as reprfesenta 90 es bini- 
rias de quaisquer dois pares de caracteres inversos, tal como dis- 
cutido acima, os bits de 0 a 5 sSo tamb&n os inversos (melhor 
dizendo, os complementos) uns dos outros! A figura 2 sinteti* 
za tudo o que foi dito ate agora. 

ASSEMBLER E INVERSAO DE VtDEO 

Vejamos agora como aplicar esses conhecimentos atrav^s de 
uma simples rotina em linguagem de maquina para realizar a 
inversao de todos os caracteres grificos de uma tela de video. 
Esta sub-rotina pode ser chamadia diretamente do BASIC e, co- 
locada em nossos programas, permitui a realiza^o de espeta- 
culares efeitos visuais, que em nada ficarSo a dever aos dos me- 
lhores jogos de a^o. De quebra, podemos progredir um passo 
a mais no aprendizado da linguagem Assembler, pois £ exata- 
mente assim que se come 9 a: analisando programas e assimilan- 
do pequenos conjuntos de instru 9 oes de cada vez. 

A listagem-fonte de nossa rotina, juntamente com os c 6 di- 
gos-objetos, esta na figura 3. A 16gica £ bastante simples e con- 
siste em examinar cada uma das 1024 poshes da tela, a partir 
de 3C00H= 15360D; verificar se o seu conteudo £ um career 
grdfico e, em caso afirmativo substitui-lo pelo seu carter in- 



Em marpo, MS vai mostrar como se processa a comunicacao de dados 



• Redes locais • A viagem dos dados • Modems, um periferico em voga 
E ainda: Anquivos no NEWDOS, Compiler e Quasar IV - um compilador BASIC 
e um otimo jogo, e o Solitario, para Sinclair. 



7000 




00100 




ORG 


7000H 


7000 


21003C 


00110 




LD 


HL , 3C00H 


7003 


010004 


00120 




LD 


BC, 1024 


7006 


7E 


00130 


TESTA 


LD 


A, (HL) 


7007 


FE80 


00140 




CP 


80H 


7009 


3808 


00150 




JR 


C, SEGUE 


700B 


FEC0 


00160 




CP 


OCOH 


700D 


3004 


00170 




JR 


NC, SEGUE 


700F 


2F 


00180 




CPL 




7010 


C640 


00190 




ADD 


A, 64 


7012 


77 


00200 




LD 


(HL) ,A 


7013 


23 


00210 


SEGUE 


INC 


HL 


7014 


0B 


00220 




DEC 


BC 


7015 


78 


00230 




LD 


A,B 


7016 


B 1 


00240 




OR 


C 


7017 


20ED 


00250 




JR 


NZ, TESTA 


7019 


C9 


00260 




RET 




0000 




00270 




END 




00000 TOTAL 


ERRORS 








34841 


TEXT 


AREA BYTES LEFT 







SEGUE 7013 00210 00150 00170 

TESTA 7006 00130 00250 



Figura 3 - Listagem do programa fonte INVERTE /SCR 



verso ou complementar, retomando ao programa BASIC ap 6 s 
examinar a ultima posi 9 &>. 

0 processo se inicia carregando em HL o endere 90 inicial 
da tela e em BC o numero total de posi 95 es, 1024 (linhas 1 10 
e 120), em seguida £ iniciado um la 90 , denominado TESTA, 
abrangendo as linhas de 130 a 250. Nesse la 90 , o conteudo da 
pos^So da tela apontada por HL e carregado no acumulador A 
e comparado, sucessivamente, com 80H= 128D e COH =192D. 
Caso o conteudo de A seja um sfmbolo grifico, a logica ser£ 
transferida para a linha 180 onde, juntamente com a linha 190, 
a inversao propriamente dita ser £ realizada. 

Tal inversao £ feita em duas etapas (acompanhe pela figura 
4): inicialmente, £ chamada a instru 9 ao CPL, que inverte todos 
os bits de A. O byte daf resultante tern, infelizmente, o bit 7 
igual a zero e o bit 6 igual ale, como tal byte nao pode repre- 
sentar um career grdfico, a S 0 IU 9 S 0 para restaurar as coisas 6 
simplesmente adicion^r 64D=0 1000000 ao conteudo de A (ve- 
ja novamente a figura 4), que passa a conter o sfmbolo grdfico 
complementar do original e que e, em seguida, transferido para 
o endere 90 apontado por HL (linha 200), sendo impresso na 
tela. 

Caso o conteudo original de A nao seja um simbolo grtflco, 
ou ap 6 s a opera 9 ao de inversao acima, o controle vai para a li- 
nha 220 (SEGUE), onde o HL 6 ajustado para apontar a pr 6 - 
xima posi 9 ao da tela (INC HL); a linha 220 diminui de uma 
unidade o conteudo de BC; a 230 coloca o conteudo de B em 
A e a 240 realiza a opera 9 ao 16gica OR entre C e A. Isto equi- 
vale a comparar entre si os dois bytes de um registrador de 16 
bits (par BC) e, se ambos forem nulos, o resultado seii nulo, a 
ultima posi 9 ao da tela terd sido atingida e o processo estard ter- 
minado; caso contririo, a linha 250 transfere o controle para a 
linha 130 (TESTA) e o processo 6 reiniciado. 

APLICACAO 

A figura 5 mostra um exemplo da aplica 92 o da nossa sub- 
rotina a um programa BASIC, aplicdvel a qualquer modelo ou 



Conteudo Original de A (180) 


1 


0 


l 


l 


0 


i 


0 


0 


Conteudo de A apos CPL 


0 


l 


0 


0 


1 


0 


1 


1 


+ 64 


0 


D 


D 


D 


a 


□ 


D 


D 


j Conteudo de A apos adigao (139) 


■ 


• 


° 


! 


■ 


• 


■ 


3 



Figura 4 - As operates de inversao 



10 CLSSP0KE 16561 f 0:P0KE 16562 r 255ICLEAR 100 
20 FOR 1—256 TO -23i:READ ArPOKE I , A : NEXT 
30 IF PEEK ( 16396 ) =201 POKE 16526, 0:P0KE 16527,255: 
GOTO 50 
40 DEFUSR— 256 

50 FOR 1=15360 TO 16383 STEP 6:P0KE 1,183: 

POKE 1+1,187: NEXT 

60 X=USR (0 ) :FOR 1*1 TO 50:NEXTiGOT0 60 

70 DATA 33,0,60,1,0,4,126,254,128,56,8,254,192,48,4 

80 DATA 47, 198,64, 119,35, 11, 120, 177,32,237,201 



Figura 5 - Listagem do programa BASIC INVERTE /BAS 



configura 9 io, para obter um bonito efeito visual. A linha 10 
realiza a prote 9 So da memdria a partir de 65280; a linha 20 
carrega os 26 bytes da sub-rotina, ap 6 s convertidos para o sis- 
tema decimal, a partir de -256 (lembre-se: 65280 — 65536 
= 256); a linha 30 verifica se o sistema tern ou n5o disco; a li- 
nha 50 preenche a tela com sfmbolos graficos de uma forma 
muito interessante e, fmalmente, a linha 60 chama a sub-rotina 
para execu 9 ao, constituindo um la 90 infinito. 

Agora 6 s 6 “bolar”, por exemplo, uma abertura para o seu 
programa, encaixar no mesmo a sub-rotina e, tal como na linha 
60, chamd-la quantas vezes quiser. Outra sugestlo seria a de, em 
um programa que exigisse alguma resposta do usuirio, “explo- 
dir” a tela em caso de erro. A sua imagina^o 6 o limite! ■ 



Roberto Quito de Sant'Anna 4 engenheiro de ta/acomunicagdas , forma 
do peio institute Militar de Engenharia. Professor da cade ire de inf or 
mdtica de Academia MUiter das Agulhas Negros desde egosto de 1982, 4 
tamb4m co labored or de Micro-Maxi Computed ores e Si stem os, como 
analista de sistemas. Colabora com a re vista MICRO S/STEMAS h4 bas- 
tante tempo , sendo respons4vel pela 'Rodada MS'. 
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fScraftK 

com P^ 5 

DIDEOTERTO 




voce ja encontra na 




[computer store J 



■\ 



O seu microcomputador CRAFT II plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens & 
cores, atrav6s de uma interface RS 232-C, um 
modem assincrono e um software dedicado, 
k venda e em demonstragSo na SACCO. 

Torne-se um usuirio do VIDEO TEXTO, 
opcionalmente tambim do Projeto Cirandio, 
e garanta hoje o seu presente de Natal. A sua 
tamilia tambim vai poder usar e gostar 
muito. 



•Sao Paulo • Santos • Campinas 



V. 



SACCO Computer Store 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
S§o Paulo - SP - Tel.: (Oil) 852-0799 



J 



MICRO StSTEMAS. feveroiro/85 









SOFTWARE 



Visicalc para CP-300, igual ao 
do CP-500. Acompanha manual e 
tabela de comandos. Claudio, tel.: 
(Oil) 61-6884, apos 20hs. 

Compro programas para TRS 
80 - Cassete e TI-59. Douglas W. 
Heckmann - R. Lauro Linhares, 
227 ap. 102 - Florian6polls - 
SC. 

. Pacote de cdlculo numdrico p / 
linha Sinclair. Fita com 18 progra- 
mas, incluindo: Sistema Linear, 
Inversao de Matriz, Autovetores, 
Sistema nao-linear, Calculador de 
Fdrmulas, Zeros de Funcoes, Re- 
gressao Linear. Interpolagao, In- 
tegral, S3rie de Fourier, Gr3fioo 
de f(x), Superficies, Curves para- 
mdtricas, Transf ormagoes no pia- 
no complexo, Equagoes diferen- 
ciais ordin3rias (com grdficos). 
Acompanha manual. Preco 30 
ORTN. Envie cheque nominal 3 
Luiz Henrique Duczmal — Rua Ja- 
va, 186 — Nova Sufga - Belo Ho- 
rizonte - MG - CEP: 30000. 



Vendo ou troco programas pa- 
ra microcomputadores Apple e si- 
milares entre jogos e aplicativos 
de Engenharia. Bom prego. Escre- 
va para Joao Bosco de Castro — 
R. Licinio Leite Machado, 59 — 
Santana ou tel.: (0123) 22-0420. 

Apple & Competlveis. Progra- 
mas e manuais - solicite listas - 
Dominio Publico Soft & Man — 
Cx. Postal 201 - S. Bernardo do 
Campo - CEP: 09700 - S. Paulo. 

Soft para Apple - Cr$ 18.000 
disco cheio. 500 tftulos. Pega ca- 
tdlogo - Alfamicro — Cx. P. 21 1 93 

-S. P. 

. Commodore-64, assessoria, 
software, manutengao e acessdrios. 
Av. Brig. Faria Lima, 1644 s/I 26 
Sao Paulo - SP. Fone (011) 843- 
1065. 

Linha TRS80 Color 300 pro- 
gramas a sua escolha pelo cati lo- 
go. Jos3 Luiz Pereira — Cx. P. 
1536 — Foz do Iguagu - CEP: 
85890 - PR. 

Soft CP 500 (disco) todo tipo 



troco — Paulo Cx. P. 6125 — 1 31 00 
- Campinas SP. (0192) 41-8860. 

. Programas p/Apple: aplicativos, 
utilitdrios, compiladores, lingua- 
gens e jogos tel.: (021) 239-0449 
Stela. 



EQUIPAMENTOS 



. Vendo unidade gravadora de 
memdrie Eprom (2716-2K/2732- 
4K) p/adaptagao em micros c/16- 
gica Sinclair. Tratar c/Josl Carlos. 
Tel.: (011) 220-4061 (noite). 



CLUBES 



. O NETC - N0CLEO DE EN- 
SINO DE TECNOLOGIA E ClEN- 
CIA, estar3 promovendo durante 
os meses de Fev./Mar. os seguin- 
tes cursos: Eletrdnica Digital I e 
II; Computadores e Microcompu- 
tadores Digitais - Hardware; Pro- 
gram agao Assembly Z-80 e 8080/ 
85; Hardware de Sistemas Basea- 
dos no MP Z-80, 8080/85 6.800; 
Interfaces A/D e D/A; Hardware e 
Software de Teleprocessamento. 



Todos os cursos sao mtegralmen- 
te apostilados e retroprogetados, 
contando com aulas pr3ticas em 
laboratdrios de Hardware e Soft- 
ware amplamente equipados com 
mddulos de treinamento, micro- 
computador TRS-80 e micros de 
desenvolvimento da Suporte En- 
genharia. Informagdes e pedidos 
de cat3logos de cursos: Rua Al- 
varo Alvim nP 37 — 29 andar — 
Fone (021) 220-1989, Centro - 
CEP: 20031 - Rio de Janeiro - 
RJ, das 09:00hs 3s 22:00hs. 



CURSOS 



. O Centro Cultural C3ndido 
Mendes est3 com inscrigdes aber- 
tat para os seguintes cursos: Intro- 
dugao aos Microcomputadores 
(16:00hs) — Linguagem Basic 

(20.O0hs) - Basic Para Advoga- 
dos (28:00hs) - Linguagem de 
M3quina p/TK (20:00hs) - Micro- 
computadores p/Criangas - Mod. 
II (12:00hs) — Microcomputado- 
res p/Criangas - Mod. Ill (12:00hs). 
Inf. e inscrigdes 3 Rua Joana An- 
gelica, 63/6P and. Tel.: 267-7098 
ou 267-7141 ramal 8 3s 13:00hs. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 3 quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto voc£ ter3 que pagar? Isso tamb6m 6 
decisao sua. Preste atengao: 

• cada linha de texto (30 toques, incluindo os espagos em brsnco) 
custa Cr$ 2.000,00; 

• linhas incompletas serao cobradas como inteiras; 



• o prdprio anunciante deve checar o valor de seu anuncio com o 
numero de linhas que ele contiver; 

• o anGncio deve vir acompanhado de um cheque nominal 3 ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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Maiores informagdes pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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m.5. Servicos 



nnJiviEC 



SOFTWARE - CP/M 



• Administragao Imdveis/ 
Condom fnios 

• Controle Administrative/ 
Financeiro p/Clubes, Escoias, 
Corretoras Seguros 

• Controle Operacional Hot6is 

• Corregao Monet3ria balango 

• Faturamento Servigos Medicos 
(Convenios) 

• Formulagao/C3lculo de Ragoes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n? 210 — C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (021) 551-6699 



SiHcPaift^oce 



O lugar compativel 
com voce e seu 

micro. 

r — Micros 
— Acessorios 
— Software 
— Livros 
— Revistas 



Rua Dias da Cruz, 215 — loja 
1 07 - Rio de Janeiro - RJ 
Tel.: 594-2699 



•/.vyj'/'Ui 



iinformAtica 



HARDWARE 

Compra e venda de microcomputadores 

ASSINATURAS 

Ustagens de programas para a linha 
Sinclair 

SOFTWARE 

Desenvolvimento. venda e locagSo 
SUPRIMENTOS E ACESSORIOS 

Diskettes, drives, joysticks. formul3rios 
continuos. etc 

CONSULTORIA E SERVICOS 
EMPRESARIAIS 

Escritdrios. lojas. escoias e consultdnos 

CONSULTE-NOS 

SEM COMPROMISSO 

TROPICAL INFORMATICA LTDA 

AV NOVA INDEPENDENCE. 281 - CJ t 

FONE (011)533-4971 - CEP 04570 

BROOKLIN - SAO PAULO - SP 



COMPUTADORES 
E PERIFERICOS 



UNITRON 

MICROCRAFT 



VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



Av. Mai. Camara, 271 s/loja 101 
Tel: (021) 252 3289 — RJ. 



ALBAMAR 

ELE TRONIC A LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

MAGNETICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e 8" 

Rua Conde de Leopoldma, 
270-A S3o Cnstov3o — R J 
Tels (021) 580-6729 
580-8276 



PARA 

PROBLEMAS 

TECNIC0S 

USE 

A CABEQA 



PARA PROBLEMAS COM MATERIAL DE 

DESENH0 PINTURA ■ ENGENHARIA 
PAPELARIA - ESCRITORI0 MAOUINAS PI 
ESCR0RIO E SUPRIMENTOS EM GERAL 
bVc'v O BEL-BAZAR 
ELETR6NICO 



ond* w>cA AINDA sneontra praco 
a qualldad* da ANTIGAMENTE! 



AV ALMIRANTE BARR0S0, 81 U "C" 
TEU 262-9229 262-9086 2406410 • 221-8282 
RIO DE JANEIRO -CASTEIJO 



IMPOSTO DE RENDA 
POR COMPUTADOR 



Use os modernos 
Computadores Cobra 
para fazer sua 
declaragao: 

• Seguranpa absoluta 

• Rapidez 

• Tecnicos 
especializados 



PRO JED AT A 



Pga. Tiradentes n°. 10 
sala 706 Centro-RJ. 
Tels.; (021) 242-3433 
571-8447 
258-7599 



Pare de Sonhar.. 

Os leitores de MICRO SISTEMAS nao tern bola 
de cristal para adivinhar a cor de seus produtos. 



vr TV TJ T T J y T T f T T 

ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 



Av. Pre*. Wilson n.° 165 — gr. 1.210/16 — TELS.: (01 1 ) 853-3229/853-3152 
CEP: 20.030 — Rio de Janeiro — RJ. 

Rua Oliveira Dias n.‘ 153 — Jd. Paulista — Tel: (011) 583-3800/8537758 
CEP: 01433 — Sao Paulo — SP 



















SUGESTOES 
PARA O 

PROGRAMADOR BASIC 



SAVAGE, E. R., Sugestoes para 
o Programador BASIC, Editele 
Editora T6cnica Eletronica Ltda. 

■ Destinado tanto a iniciantes 
quanto a programadores j3 expe- 
rientes, este livro traz uma s6rie 
de sugestoes e sub-rotinas que 
perm item otimizar a elaboragao 
de programas, tornando-os mais 
compactos, elegantes e de exe- 
cugao mais r^pida. 

Os diversos tbpicos e sub-ro- 
tinas sao expostos de maneira 
clara e detalhada, mostrando co- 
mo e porque funciona cada sub- 
rotina e quando e como utiliz^- 
la. Quando necess£rio, sao utili- 
zados fluxogramas que contri- 
buem para um maior esclareci- 
mento Ibgico. 

Ao todo sao 50 sugestoes e 
sub-rotinas de apoio (escritas no 
BASIC Nivel II do TRS-80 e 
compatfveis, mas que podem 
rodar em outras miquinas me- 
diante pequenas adaptagoes), 
inclulndo as variapoes possfveis 
para as mais diversas aplicapoes. 




PMUip EIN-DQR 

i 




ADMINlS'iKACAO 
DF SISTEMAS 
DF INFORM ApAO 




EIN DOR. Philip; SEGEV, Eli, 
Administragao de Sistemas de 
informagao, Editora Campus. 

■ O desenvolvimento de sistemas 
administrativos de informapao 6 
um processo complexo com nu- 



merosos aspectos que abrangem 
uma grande variedade de detalhes. 
Este livro tern como primeiro ob- 
jetivo organizar esses aspectos coe- 
rentemente, agrupando-os em tb- 
picos importantes, de maneira que 
o leitor possa analisar o material 
sistematicamente. 

Em geral, as obras sobre MIS 
tratam apenas de algumas das v$- 
rias questoes existentes neste cam- 
po, ressaltando-as como se fossem 
as unicas de importancia. Em Ad* 
ministragao de Sistemas de Infor- 
magao cada questao 6 unica e pos- 
sui seu prbprio conjunto de pon- 
tos crfticos. Por isso, o livro nao 
apresenta receitas para o desenvol- 
vimento e gestao de um MIS, mas 
um piano de contingency, sob a 
forma de uma lista de verificapao 
que poder£ ser aplicada na an£lise 
dos fatores de exito e fracasso de 
um sistema de informapoes 3 ad- 
ministrapao. 




BROONER, E. G., Gerincia 
de Bases de Dados Para 
Microcomputadores , Editora 
Campus. 

fl A maioria das aplicapoes de 
computadores requer armazena- 
mento de dados, mas para se obter 
o m^ximo de proveito das infor- 
mapoes mais complexes 6 necessb- 
rio o uso de tScnicas para sua ma- 
nipulapao. Na verdade, sao muitas 
as t6cnicas que podem ser utiliza- 
das para a manipulapao de dados 
e, por isso mesmo, o usu^rio faz 
frequentemente perguntasdo tipo: 
por que deveria o m^todo de bus- 
ca binaria ser preferido a alguns 
outros mgtodos... e ser4 que deve- 
ria se-lo? Se o processo de hashing 
& tao r^pido, por que nao 6 o uni- 
co mgtodo de procura utilizado? 
Por que certas bases comerciais 
sao, aparentemente, tao simples, 
enquanto outras exigem uma du- 
zia de programas e diversos dispo* 
sitivos propulsores de discos? Es- 
ses sao alguns dos assuntos discu- 
tidos em GerSncia de Bases de Da- 
dos para Microcomputadores. 



Atrav6s de uma abordagem 
simples e objetiva, este livro expli- 
ca muitos dos m6todos utilizados 
para a manipulapao de dados, for- 
necendo a orientapao necess^ria 
para o uso dos recursos de busca e 
classificapao, o linking e o hashing. 
O autor enfatiza os aspectos pr$- 
ticos, descreve e avalia inumeras 
aplicapoes comerciais, apresentan- 
do exemplos do uso simultaneo 
de diversos arquivos tais como ati- 
vo fixo, inventirio e folha de 
pagamento. 




COUCORO BARRENECHA 



oooo ; 



SISTEMAS DE GERfiNOA 
DE BANCO DC DADOS 



COUCEIRO, L. A.; 
BARRENECHA, H. F., Sistema 
de Gerund a de Bancos de Dados 
Distribu/dos, Livros T6cnicos e 
Cientfficos Editora. 

■ Este livro apresenta importan- 
tes aspectos relacionados com o 
desenvolvimento de projetos de 
Sistemas de Gerenciamento de 
Banco de Dados Distribufdos 
(SGBDD) e tern como objetivo 
avaliar problemas desta^rea, assim 
como detalha-los e estabelecer o 
nfvel atual do conhecimento sobre 
o assunto, al£m de definir e local i - 
zar mdtodos e modelos que estao 
sendo adotados para a sol upao des- 
ses problemas. 

Para alcanpar esses objetivos, 
foi feita, no capftulo 2, uma con- 
ceituapao dos SGBDD, estabele- 
cendo um conjunto de conceitos 
bdsicos que caracterizam e permi- 
tem a an£lise das principais carac- 
terfsticas funcionais desses siste- 
mas. 

O capftulo 3 trata de um dos 
problemas mais importantes na 
drea dos SGBDD: a determinapao 



dos locais de armazenamento dos 
arquivos e diretbrios do banco de 
dados nos diversos nbs da rede. 

No capftulo 4 encontramos as 
estrat6gias de processamento de 
consultas — distribufda e centra- 
lizada — e tambbm a anSlise dos 
algoritmos correspondentes. 

O quinto capftulo traz um es- 
tudo dos tipos de algoritmos para 
efetuar o controle de concorr§n- 
cia. Estes algoritmos podem ser 
baseados na ordem de escalona- 
mento ou em t^cnicas de exclusao 
mutua. AI6m disso, tambbm sao 
apresentados no capftulo 5 alguns 
conceitos bdsicos que facilitam a 
com preens So do tema. 



PRATES, R ..CartSo de 
Referenda — CP-500, Livros 
T6cnicos e Cientfficos Editora. 



■ Quantas vezes voce nSo teve 
que interromper uma digitapSo 
para consultar o manual do equi- 
pamento porque esqueceu algum 
comando, quer verificar uma fun- 
pSo especial ou mesmo ter acesso 
ao cbdigo de erro? Agora, com o 
CartSo de Referenda do CP-500, 
esse trabalho nao serS mais neces- 
sbrio. Ele 6 um instrumento de 
grande valia na programapSo e no 
uso do CP-500, pois abrange to- 
dos os comandos do DOS-500; os 
apendices DEBUG, MERGE, DIR, 
HELP, LIB e FREE; cbdigos de 
erro do DOS-500; caracteres espe- 
ciais; funpbes especiais do tecla- 
do; mapa de membria do CP-500; 
tabela de conversbo; membria do 
teclado; organ izapao do disquete; 
caracteres kana; subcomandos de 
edipSo; funpbes, mensagens e cb- 
digos de erro, limites e coman- 
dos da linguagem BASIC; opera- 
pbes especiais; caracteres de mo- 
del o de edipSo para PRINT 
USING; palavras reservadas; tabe- 
la de caracteres de controle do 
vfdeo CHR$; tabela de caracte- 
res do vfdeo/impressora; abrevia- 
turas e caracteres especiais do 
BASIC; cbdigos de compreensSo 
de espapo e todas as declarapbes 
utilizadas no BASIC. Este cartSo 
6 uma publicapSo inddita - a pri- 
meira, no genero, de autor brasi- 
leiro para equipamento nacional. 

Devido ao seu formato sanfo- 
nado, o CartSo de Referincia do 
CP-500 6 de tecil manuseio, e 
qualquer informapSo pode ser ra- 
pidamente encontrada, evitando 
consumo de tempo e esforpo. 



Enderepo das Editoras: 



. Editors Campus - Rua Japeri, 35, CEP 20261 , Rio de Janeiro; 

. Livros T6cnicos e Cientfficos Editora — Av. Churchil, 94, 49 andar, 
CEP 20000, Rio de Janeiro; 

. Editele — Editora T6cnica Eletrbnica Ltda. — Rua Casa do Ator, 
1060, CEP 04546, Sao Paulo. 
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CP400 COLOR. 




VOCE TEM QUE ESTAfi PREPARAD0 
PARA SE DESENV0LVER COM OS 
N0V0S TEMP! KiQLl E.VTA0 A). E0 
CP iWi COLOR E A CHAS E DESSA 
EVi.H.UfAO PESS0AL f. PROftSStOVAl. 









PORQUfe 
PORQUE 0 
tP 400 COLOR t 
UM ajMPUTADOR 
PESS0AL DE 
TEMPO INTEGRAL 
HI!. PAHA A 

famJiia toda.odla imuro 

NA KORA DE SE DfVERflU, POR 
EXEMPLQ, £ MUTT0 MAIS EMOCKS 
XANTE M IRQRJE. ALEM OEOFERECER 
JOGOS INEDnOS, £ 0 L'MO) COM 
1 J0V SUCKS AN ALOGICOS l)E ALTA 
SENSIHIIJDADE. QUE PEKMUEM M0- 
VTMENTAS AS EMAGEiVS LM T01JAS 



AS DlREJjfiES. MESMO NAII0RA 
m TRABALHAR E ESTl 'DAK. OCPAOO 
COUJR M0STRA 0 S£U LADOSfRIO 
MLMiORIA LXPANSf/EL, PORTA PARA 
COMUMCAQ AD DE DADOS. SAIDA 
PARA IMPRENSORA, E DMA (5T1MA 
SmDEZCOM IMAGENSOOU)WFMS 
COMO SEHJD0 ISSO NAO 

bastasse. a prolOcica ajnda ope 



RECE A C.ARANT1A DE QlALIlAADE 
DE (,H LM E LIUER NA TH^OLOGLA 
DE C0MPLTAD0RES, E 0 PRKQ0 
MAIS ACBShU NACATBOHA 
MMA PRASE: SEVOCt NAO 



Ql ESER CHISGAR ATRASAU0 A0 FI ■ 
TL'RO. C0MPRE SEU CP 400 COLOR 
IMEHIATAMENTE 

EMOQAO E JNTELI«tNCL\ N UM 
EQDIPAMENTOSO. 

■ MIOK IPROCESSADOR; 6009E COM 



ESTRlTl'KA INTERNA DE 
lbBTrS E CLOCK DE FREQCtN'GA 
DE ATE Ij6MHZ 

* POSSIBIUTA 0 l. ; S0 DE ATF. 

9 CORES, E1B1 UMA RESOLigW) 
GRAF1CA SUPERIOR A 49.000 
P0NT0S- 

* MLMORLA ROM: 16K BNTES 
PAR.A SISTEMA 0PERAO0NAL E 
INTERPREFADOH B.ASIC 

* MEM081A RAM; 0 CP 400 COLOR 

esta Dimtva em dois modelos; 



* WJDFJjt) I OK. 




DCPAjNSDTLA 
64K BYTES 
* M0DEL0 64K: 
Alt64K BYTES 
QUANDO USADO 
COM ULNQLETES 
(DISHOSM]. 
EMDEZEMBRO) 
• 0 CP 40l> COLOR DISPOE I JE 
CAFTTUCHOS DE PR0GRA.MAS COM 
!6K BYTES DE CAPAODADt. 

Ql'K PERMTTEM 0CARREGAMENT0 

kstawtAneiydejogos, 



UNGUAGENS E APUCATIVt ts COMO 
HANO I DE DADOS, PLAMLHAS 
DE CALCUli), EMTDRES DE TEXTOS, 
apucativos HNANCELROS, 
APLICATTVOS Cft.'M'fOYS, ETC 
• SAlDA SERIAL ES 2S2 C QLE 
PERMETE COMUNICAQAO DE DADOS 
ALEM DO QUE. ATRAVES DESTA 
PORTA. VOCE PODE CONECT.AR 



QUAI.QIEH LMPRESSORA SERIAL 
0( ATE MESMO 
FORMAS UMA 
REDE K TRABA- 
LHO COM 
OLTROS MICROS 

• PORTA PARA 
GRAVA1XW (OS- 
SETE COM GKAVAQAO E I.ETITRA 
DEALTAVUOOIUDE. 

• S.A]'I HAS PAHA TV EM C< IRES E M< ESI 
TOR PR0F1SSIONAL 

• DltAS ECTRADAS PARA KANTICKS 
AN ALOGICOS QUE 0FERECEM 
tNE&llTAS POStgOES NA TELA, 
ENQUANTO OUTROS TEM SOMENTE 

sdikeqOes 

• AMPLY BIBUOTECA tffi SOFTWARE 
JADLSPONDEL. 

• ALLMLNTAgAO- 1 10-220 STILTS 





MlC#OCOMPUTAOOfi=COLOfi 

VEIA, TESTE EC0MPRE 
SET.: CP ii X I COLOR NOS MAGAZINES 



E m ENDEIM IRES PRl ILOUICA 



■■■ PROLOGICA 





QUEM TEM UM.TEM FUTURO. 






De hoje em diante nenhuma 
empresa, por manor qua seja, pode 
dispensar o TK 2000 SI, Por que? 

0 novo TK 2000 IS roda o 
Multicalc: a versao Microsoft do 
Visicalc: o programs mais famoso em 
todo o mundo. 

Isto signifies que, com eie, voc§ 
controla esioques, cusios. comas a 



pagan faz sua programacao financeira, 
efotua a folha de pagamentos e 
adminisira minuto a minuto as sues 
atiwdades. 

Detalhe importame: o novo 
TK 2000 II. com Multicalc, pode 
intertambiar planilbas com 
computadores da linha Apple ". 

E, como todo business computer 



Apresentamos o 

TK 20001 
Be roda o programa 
mais famoso 
do mundo. 



que se preza, eie lem teclado 
prafissional. aceita monitor, diskette, 
impresses e ja vem com interface. 

Alem de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidada 
Portando, peca logo uma 
demonstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de memdria, 

A mais nova estrela do show 
business so espera por isto para 
estrear no seu negdeio. 

Preco de lancamemo* 1128 K|: 

Cr$ 2.449.850 

/VI ICRODIGIML 

computadores pessoais 




* Suieno a tfiBada sem pr^oo aviso 



« Mho rounds it ViSrcnrp. f Irndn J A6ICQMP 9 nycrjdi at Apple C&Tffir 





